155714Skris#!/usr/local/bin/perl 255714Skris 355714Skris$num=1; 455714Skris$width=40; 555714Skris 655714Skriswhile (<>) 755714Skris { 855714Skris chop; 955714Skris 1055714Skris $i=length($_); 1155714Skris 1255714Skris $n=$width-$i; 1355714Skris $i=int(($n+7)/8); 1455714Skris print $_.("\t" x $i).$num."\n"; 1555714Skris $num++; 1655714Skris } 1755714Skris 18