my ($mail_from) = defined ($_mail_from) =~ /^(\w+\@\w+\.\w+)$/;