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

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