Thank you all!

It seems although I can use grep it is considerable faster to do this in a loop such as:

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

Thanks Again!