perl -e '$a=join "", <STDIN>; $a=~tr/\n/ /s; print $a'\
 </tmp/20011113.txt | \
perl -e '$_=<STDIN>; foreach(split){print "$_\n"}' | less