perl -pe'$_=$..$".$_' file

##</code><code>##

    perl -e 'print `cat -n $ARGV[0]`' file