while ( $email !~ m/^[\w\.\-]+\@[\w\.\-]+\.\w{2,3}$/ ) { ...