opendir(DIR_C,"$input_directory") or die $!; while(my $job_C=readdir(DIR_C)){ next unless $job_C =~ /$tag\.txt$/; my $job_out; my $job_new_name; my $job_out_complete; my $job_out_complete_B; if ($job_C =~ /(.{36})\.txt$/) { Check_file_name_conditions ($job_C, $node); next unless ($do_I_pick_up_request == 'Y' && $When_process_request== 'Now');