if ($text =~ /^\s* \S+ \@ \w+ [\.\w]* \s*$/x) {
    ....
}