ldapsearch -x "(mail=*)" mail | grep "mail.*@" | perl -n -l -F. -e '
s/mail:\s//g;
{
    my (@arr) = $_ =~ /(.+)\.(.+)\@(.+)/;
    if (@arr) {
        print $arr[-3]
    } if $_ =~ /.*\..*@/
}
' | less