Perl – Validate Email – RegEx

Kurzer Check einer Email-Adresse mittels Regular-Expression (RegEx).

#
if ($input =~ /^[a-z,A-Z,0-9,\.,\-,\_]+\@[a-z,A-Z,0-9,\.,\-,\_]{2,}\.[a-z,A-Z]{2,4}$/) {
## do if true ^^
}