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