my ($found) = $match =~ /\@([^.]*)[.]/;