use Path::Tiny qw/ path /;
my @fyles = path( $files )->children;
my @ufos  = path( $files )->children( qr{\.nfo$} );