>perl -wMstrict -le
"my $s = 'foo@bar';
 print 'No need to escape lone @ in regex' if $s =~ /@ bar/x;
"
No need to escape lone @ in regex