in reply to Re: Req expression translation
in thread Req expression translation

An even better way could be: 
use Email::Valid;

unless (
    $thing_to_check =~ /\@myinfo\.com/
        &&
    Email::Valid->address($thing_to_check)
) {
    print "'$thing_to_check' is not valid!\n";
}

[download]

------
We are the carpenters and bricklayers of the Information Age.

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

In Section Seekers of Perl Wisdom