Select Code to Download

$line =~ /<STRONG><STRONG>(.+)<\/STRONG><\/STRONG>/;

$line = /([\w\.\-\_]+\@[\w\.\-]+\.\w{2,6})/;
$email = $1;