>perl -wMstrict -le
"my $str='foo@bar';
 if ($str =~ /@b/){
   print 'No need to escape the @ in a regex';
   }
"
Possible unintended interpolation of @b in string at ...
Global symbol "@b" requires explicit package name at ...
Execution of -e aborted due to compilation errors.