perl -MLWP::Simple -e 'my $page = get(qq|http://redis.io/topics/security|); if($page=~m/(\S+\@\S+)/g){print qq|$1\t|}' #### <antirez@gmail.com> #note: dumb regex on purpose to confound e-mail scanners