my @addrs = ($data =~ /mailto:(.+?\@[^">\s]+)"?/g);