ledit*1べんりだなあ

% ledit >hoge.pl
while(<>){
printf "%5d  $_", ++$i;
}
%

エディタとしてもわりと使える。