perl -pi.bak -e 's/^/sprintf( "%05d", $.).": "/e' test.pl
[download]

Of course, that will make your program unuseable :) If you need to remove them again:

perl -pi.bak -e 's/^(?:\s+)?\d+:\s//' test.pl
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.