$ perl -wle '
$x = "asdf@@sadf";
print "match" if $x =~ /\Q@@\E/;
'
Possible unintended interpolation of @sadf in string at -e line 2.
Name "main::sadf" used only once: possible typo at -e line 2.