在Perl中，你可以使用=~操作符和正则表达式来匹配电子邮件地址。一个简单的匹配电子邮件的正则表达式如下：
if ($email =~ /^[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}$/) {
print "Valid email address\n";
} else {
print "Invalid email address\n";
}
这个正则表达式的解释如下：
^：表示字符串的开始[a-zA-Z0-9._%+-]+：匹配一个或多个字母、数字、点、下划线、百分号、加号或减号@：匹配@符号[a-zA-Z0-9.-]+：匹配一个或多个字母、数字、点或短横线\.：匹配一个点[a-zA-Z]{2,}：匹配两个或更多的字母（顶级域名）$：表示字符串的结束请注意，这个正则表达式并不涵盖所有可能的电子邮件地址格式。根据实际需求，你可能需要对其进行调整。
