$a = "http://www.myurl.com/e.php?a";
$b = "http://www.myurl.com/e.php?a";

if ($a =~ /\Q$b\E/) {
        print "FOUND\n";
} else {
        print "NOT FOUND\n";
}


##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)