[keszler@tek src]# perl -le '
$x = "asdfXXsadf";
print "match" if $x =~ /\QXX\E/;
'
match
[keszler@tek src]# perl -le '
$x = "asdf@@sadf";
print "match" if $x =~ /@@/;
'
[keszler@tek src]# perl -le '
$x = "asdf@@sadf";
print "match" if $x =~ /\Q@@\E/;
'
[keszler@tek src]# perl -le '
$x = "asdf@@sadf";
print "match" if $x =~ /\@\@/;
'
[keszler@tek src]# perl -le '
$x = "asdf@@sadf";
print "match" if $x =~ /@/;
'
match
[keszler@tek src]# perl -le '
$x = "asdf@@sadf";
print "match" if $x =~ /@{2}/;
'
match