Select Code to Download

my $data = <<'END';
foo123bar
...
            $1 =~ tr/0-9/a-j/r
        }msxger;
}

my $str = <<'END';
Hello
...
    }
}
close $fh;