2000/02/26 (土) 17:06:50      [mirai]
$line = 100;
$step = 10;
printf('%04d: %s' $line $_) $line += $step while(<STDIN>);

つまりこんなもんだな