Select Code to Download

open(FH, "<passwd") or die $;
my @recs = <FH>;
etc....

my @goodrecs = grep(/^.*?:{3}foo@foobar.com/, @recs);