perl -ne 'chop; print substr($_,0,79), "\n";' .plan perl -ne 'chop; print substr($_,10,5), "\n";' wide*.txt