Select Code to Download

for my $rec ( @recs ) {
  my @rec = split(/:/,$rec);
  next unless @rec;
  push (@goodrecs,$rec) if( $rec[$n] =~ /$pattern/ );
}

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