$rule_C->path; $rule_C-> (length >= 250 ); my @files_C = $rule_C->in( @subdirs ); foreach(@files_C){ print OUT_FH_C "$_"; print OUT_FH_C "\n"; }