Select Code to Download

use warnings;
use strict;
...
$.=0;
map{my($f)=/@(.*?)\./;$.++;$.{$f}++}grep{/@/}split/\^/,$s;
print"Addresses: $.\n",join"\n",map{"$_: $.{$_}"}keys(%.);

Addresses: 6
­stooges: 1
...
yohaoo: 1
accessmo: 1
mcione: 1