Any widsom will be greatly appreciated!

 [read subfolder] read subfolder ->  [id://467063], [id://169821], [id://847] I don't want to search subfolders, Reading entire subfolder tree into an array, How do I recursively process files through directories

See Path::Class::Rule, Read this if you want to cut your development time in half!

  use strict;
  use warnings;
  use Path::Class::Rule;
  my $rule = Path::Class::Rule->new; # match anything
  $rule->file->name('*.txt');
  my $next = $rule->iter( @dirs );
  while ( my $file = $next->() ) {
    ReadThat(  $file  );
  }
[download]