$match =~ /\@(\w+)\./;