:map \# ^[I#!/usr/bin/perl -w^Muse strict;^M

##</code><code>##

# line 10 of your code
$a = sqrt(64);

##</code><code>##

:10perldo s/$/$_/ee

##</code><code>##

:map _ee ^[:.,.perldo s/$/$_/ee^M