$ perl -pwle 'BEGIN {print "First Line!"}' your_file

##</code><code>##

    $ perl -Mstrict='}, print +("First Line"), qw {' -pwle1 your_file