my @goodrecs = grep { my @rec = split(/:/,$_);
                      $rec[$n] =~ /$pattern/; } @recs;