Even with warnings and strictures, Perl is quite happy with an @ if it cannot possibly be a variable.

>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
[download]