#!perl -p s/^ | $| //g