>[оверквотинг удален]
> use Sys::CPU 'cpu_count';
> use Path::Tiny;
> use Parallel::Runner;
> my @result;
> my $pm = Parallel::Runner->new( cpu_count(), data_callback => sub { push @result, shift
> // () });
> map { $pm->run(sub { $_->slurp =~ /$ARGV[1]/ && $_->basename }) } grep
> $_->is_file, path($ARGV[0])->children;
> $pm->finish;
> say join ', ', @result;

На таком языке хорошо матом ругаться. Выглядит страшно.