use warnings;
use strict;

print "Yes!\n" if ( '$@' =~ m|\$\@| ); 
# prints "Yes!"