#! /bin/bash

perl -n -e '
    while (m/.*?([a-z0-9-]*\@[a-z][-a-z0-9]*\.[-a-z0-9.]+)/gi) {
        $a{$1} or print $1."\n";
        # $a{$1}=1;
    }
    '