in reply to numbered sourcecode listing (oneliners)
No need to keep a counter as you've got $., so try this:
perl -pe "printf '%03d: ', $." test.pl [download]
Perl Training in the UK <http://www.iterative-software.com>