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

##</code><code>##