my @addrs = $variable =~ m!mailto:(.*?\@.*\.[a-zA-Z]{2,3})!g;