my $html = <<'__HTML__';
__HTML__

my $xml = <<'__XML__';
__XML__

my $foo = <<'__EOF__';
__EOF__

##</code><code>##

 s{
}{
}ex; 
##</code><code>##

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 "
perl -MO=Deparse -e " s!!!g "
perl -MO=Deparse -e " s###g "
perl -MO=Deparse -e " s vvvg "
perl -MO=Deparse -e " s ___g "
perl -MO=Deparse -e " s {}//g "
perl -MO=Deparse -e " s {}\\g "
perl -MO=Deparse -e " s {}vvg "
perl -MO=Deparse -e " s {}()g "
perl -MO=Deparse -e " s {}[]g "
perl -MO=Deparse -e " s {}<>g "
perl -MO=Deparse -e " s<><>g "