Select Code to Download

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