foreach (@recs){push @goodrecs, $_ if (split /:/)[3] =~ /$addr/i}