use strict;
use warnings;
use feature 'say';
use Path::Tiny;
use List::Util 'any';

my $regexp = qr/(?:TbhODK|octuov|qas_uop)/;

my $found = path('/some/path')->visit(
    sub {
        my ($path, $results) = @_;
        return if $path->is_dir;
        $results->{$path}++ if any { /$regexp/ } $path->lines;
    },
    { recurse => 1 },
);

say for keys %{ $found };

__END__