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

##</code><code>##

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