I'm not sure I understand your objection to processing your code inside wanted, but I usually write a file processing subroutine that I call from the bottom of wanted once I know it is a file I want:

sub wanted {
  if ($File::Find::name !~ /some regex/) {
    return;
  }
  process_file($File::Find::name);
}
[download]