在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,}：匹配兩個或更多的字母（頂級域名）$：表示字符串的結束請注意，這個正則表達式并不涵蓋所有可能的電子郵件地址格式。根據實際需求，你可能需要對其進行調整。
