# ...
  for my $re (@res){
    my @results;
    push @answers, \ @results if @results = $line =~ $re;
  }
  # ...