Select Code to Download

@goodrecs = grep /:target\@email\.address:/, @recs;
# (note the delimiters are part of the match)

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