@goodrecs = grep { @f=split/:/; $f[4] eq $target } @recs;