Select Code to Download

      my @strings = ();
      open (my $F1, "<", $f1) || die "! open-100 $!";;  # open file 1 
...
           $strings[$#strings] = $input;
      }
      close $F1;

      open (my $F3, ">", $f3 ) || die "! open-300 $!";