if ($string =~ m/@a/) {