Select Code to Download

my $html = <<'__HTML__';
__HTML__
...

my $foo = <<'__EOF__';
__EOF__

 s{
}{
}ex;

perl -MO=Deparse -e " s///g "
perl -MO=Deparse -e " s\\\g "
...
perl -MO=Deparse -e " s {}[]g "
perl -MO=Deparse -e " s {}<>g "
perl -MO=Deparse -e " s<><>g "