Select Code to Download

#untested, but should work
my $str = 'abcd';
my $pattern = shift;
...
$repl: --
old $str: abcd
new $str: --abcd

@_=qw;
Just another Perl hacker,;
;$_=q=print
"@_"= and eval;