Select Code to Download

grep -vf exclude.list mail.list > new.list

#!/usr/bin/perl -w
#
...

print join("", @good);