use Email::Valid;

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