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