Well only happens on my Catalina box for some reason
#!/usr/bin/perl
$b = "/private/var/folders/aa/somehash/A/com.apple.metadata.mdworker";
opendir(F, $b) or die;
$i = 0;
while (readdir F) {
next if /^\.|\.\.$/;
if (-d "$b/$_") {
rmdir "$b/$_" or warn "rmdir failed on $b/$_";
warn "$b/$_\n";
}
$i++;
}
print "$i directories identified under $b\n";