#!/usr/bin/perl

# Rip email addresses from stdin.
# Not well, but usually good enough.
# Pipe this to sort -u and manually delete
# message IDs for fun.
while (<STDIN>){

    if(/([a-zA-Z0-9._\-]+)@([a-zA-Z0-9._\-]+)/){
        print "$1\@$2\n";
    }
}