in reply to special handling with regular expressions

if ($description =~ /^\s*\w+@\w+\.\w+\s*$/) {
   $description =~ s/ //g;
   $email=$description;
   #it does something special....
} else {
   #something to do
}

[download]
This works, but an email address is very complex...is better to find a module

In Section Seekers of Perl Wisdom