Oh, or even

# ...
push @answers, grep @$_, map [ $line =~ $_], @res;
# ...
[download]

instead of the for loop over @res.

I realize I'm expanding on a non-solution to the original question. It's art for art's sake, if that's allowed.

Anno