my $email = '';
until ($email =~ /^[^ ,@]+\@([a-z0-9-]+\.)+[a-z]+$/) {
    print 'E-mail address: ';
    $email = <>;
    chomp $email;
}