in reply to numbered sourcecode listing (oneliners)
perl -pe'$_=$..$".$_' file [download]
perl -e 'print `cat -n $ARGV[0]`' file [download]