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