#!/usr/bin/perl使用严格；使用警告；使用电子邮件：：有效；我的$email_address='a.n@example.com';除非（电子邮件：：Valid->地址（$Email_address））{打印“抱歉，该电子邮件地址无效！”；}