Select Code to Download

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

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

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