Select Code to Download

my ($mail)=$string=~m/([\w._+-]+@(?:[\w-]+\.)+\w{2,5})(?<!\.jsp|\.asp|
+\.jpg|\.htm)\W/mi;