Select Code to Download

local $/;
my $file = <IN>;
...
    push @stringsfound,$searchstring;
  }
}

@stringsfound=grep {$file=~/$_/i} @array;