opendir (DIR, $dir) or die $!;
my @textFiles = grep /\.txt/, readdir DIR;

##</code><code>##

    my $text_file_out = $text_file;
    $text_file_out =~ s/\.txt//;
    $text_file_out = $text_file_out . '_new.txt';