$ perl -ne '/mailto:(.+?)"/ && print "$1\n"' mail.dat >sort.dat
は嫌？