Hi, :) readdir is no fun at all, Path::Tiny on the other hand is fun :)

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