Select Code to Download

my $mail_id = 'data@mach.com.com';
if($mail_id=~/[A-Za-z0-9._%-]\@[A-Za-z0-9_%-.].[com]/)
...
   print "Not matched \n";
}

if($mail_id=~/^[\w\.=-]+@[\w\.-]+\.[\w]{2,3}$/)
{
...
   print "Not matched \n";
}