Select Code to Download

$str =~ s/http:\/\///g;

...
$str =~ s|http://||g;
$str =~ s#http://##g;
$str =~ s!http://!!g;

$str =~ s!(/\*[^/]+\*/)!>>>> \1 <<<<!g;  # /* comments */
$str =~ s!(\s//[^/\n]+)!>>>> \1 <<<<!g;  # // comments
print $str;

$str =~ s!(fancy re here)! print "$1\n"; "" !ge;