Email::Validモジュールを使用すればメールの書式だけでなく、ドメイン部分のMXが実在するかどうかを確認できます。
[例]
use Email::Valid;
my $mailcheck = Email::Valid->address( -address => "$email", -mxcheck =>1);
if (!$mailcheck){ print 'メールアドレスが不正です'; exit; }