Select Code to Download

$matchtext1 = "http://www.new.site/somenewpage.pl\?";
print "$matchtext1\n";
$matchtext2 = 'http://www.new.site/somenewpage.pl\?';
print "$matchtext2\n";

$matchtext = "http://www.foo.bar/somepage.pl?";
$substitutetext = "http://www.new.site/somenewpage?";
s/\Q$matchtext\E/$substitutetext/;