my $program = <<'END';

# put any arbitrary code here

print "my \$program = <<'END';\n${program}END\neval \$program\n";

END
eval $program

##</code><code>##

------------
:Wq
Not an editor command: Wq