Select Code to Download

my @answers;
while (my $line = <DATA>){
...
    my @results;
    if (@results = $line =~ /$re/){
      push @answers, ["@results"];

    }
  }
}

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