($line =~ /[ |\t|\r|\n]*\"?([^\"]+\"?@[^ <>\t]+\.[^ <>\t][^ <>\t]+)[ |\t|\r|\n]*/ )

##</code><code>##

$line = “TO: jas@jas1.com; 1@example.co.uk, random text jas@jas2.com ;

##</code><code>##

jas@jas1.com<new line>
1@example.co.uk<new line>
jas@jas2.com<new line>