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