1#!/usr/local/bin/perl 2 3$num=1; 4$width=40; 5 6while (<>) 7 { 8 chop; 9 10 $i=length($_); 11 12 $n=$width-$i; 13 $i=int(($n+7)/8); 14 print $_.("\t" x $i).$num."\n"; 15 $num++; 16 } 17 18