perl -MLWP::Simple -e 'my $page = get(qq|http://redis.io/topics/security|); if($page=~m/(\S+\@\S+)/g){print qq|$1\t|}'