#!/usr/bin/perl

use warnings;
use strict;

$_ = 'foo@@bar';
print "matched\n" if /@@/;
print "matched\n" if /\Q@@\E/;
print "matched\n" if /\@\@/;

__END__
matched
matched
matched