my $string = 'one@two.com';
if( $string =~ m/\@/ ) {
  print 'yes';
}