# perl -e "open(IN, 'base.sql'); open(OUT, '>', 'mail.txt'); while(<IN>) { print OUT $1 if /([-_.\d\w\s]+@[-_.\d\w]+)/ }"
cat dump.sql | awk '{ $<номер колонки с мылом> }' > spambase.txt
cat dump.sql | awk '{ $<номер колонки с мылом> }' | sed s/\'//g > spambase.txt
perl -e "open IN,'file.sql';open OUT,'>mail.txt';while(<IN>){print OUT \"$1\n\" if /([-_.\d\w\s]+@[-_.\d\w]+)/}"