Select Code to Download

$ perl -e '
    my $insert = <<EOF;
...
    line2
line3
</pre>

$ perl -e '
    chomp(my $insert = <<EOF);
...
<pre>line1
    line2
line3</pre>