Select Code to Download

($m='"' and $names[$k] here search string)

open (INTER, "file_1.txt") || die "File not found";
          while (defined ($row = <INTER>))
              {
...
              }   
              close INTER;                           
          }