Select Code to Download

my $FILENAME4 = "organized.txt";
open(DATA2, $FILENAME4);

my $FILENAME4 = "organized.txt";
open DATA2, '<', $FILENAME4 or die "Cannot open '$FILENAME4' $!";

#remove all previous re-organized files
my $remove_reorganized = "re-organized.txt";
...
            print "Cannot open file \"$outputfile\" to write to!!\n\n"
+;
                exit;
        }

# make a file for the ouput
my $outputfile = "re-organized.txt";
open POS, '>', $outputfile or die "Cannot open file '$outputfile' to w
+rite to because: $!";

$organized =~ s/(\w+)[^(^\d+)(\s)]/z/g;