Select Code to Download

sub search_and_replace {
      open my $target_file, "<", $_;
...
      }
      close $target_file;
}