opendir my $dir, "." or die $!;
while( my $name = readdir $dir ) {
    next unless $name =~ m/(?:XYZ|\.txt|\w)/;

    print "doing something on $name\n";

    # more code here

}
closedir $dir;