1 way.

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

2 way.

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