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

##</code><code>##

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