my @goodrecs = grep {$_=~/(.*:){3}foo@foobar.com/} @recs