一般来说，你不能。有一些看起来合理的方法可以使用，但却没有办法检测地址 是否实际可以投递，如果没有实际尝试投递的话。
使用正则表达式：
# Match basically blah@blah.blah
if ( $addr =~ /^\S+\@\S+\.\S+$/ ) {
print "Looks OK";
}如果你干真活的话，可能希望看看 CPAN 上可用的模块，比如： Email::Address 、 Email::Valid 。
DBI 及其 DBD 子模块，如 DBD::SQLite 。
LWP 意为 libwww-perl ，它是与网页交谈的标准方式。
WWW::Mechanize 是使 HTML 处理更容易的 LWP 的超集。
使用 Date::Manip 、 Date::Calc 、或 DateTime 。全部都有不同的样式和 不同的能力。
使用 Getopt::Long 。
无论你做什么，都不要使用正则表达式。使用 HTML::Parse 或别的类似东东。 如果你解析 HTML 是为了从网页提取链接或图像，不妨使用 WWW::Mechanize 。
使用 Term::ANSIColor 。
使用 Term::ReadKey 。