opendir (DIR, $dir) or die $!; my @textFiles = grep /\.txt/, readdir DIR; #### my $text_file_out = $text_file; $text_file_out =~ s/\.txt//; $text_file_out = $text_file_out . '_new.txt';