perl -pe'}{$_=$.' filename

##</code><code>##

for (qw(Whom the bell tolls)) {}
continue { print "$_\n"; next }