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

つまりこんなもんだな