use Win32::TieRegistry(Delimiter=>'/');
$| = 1;

sub process_hidden
{
  my $overlong = shift;
  print "OVERLONG REGISTRY KEY FOUND:\n$overlong\n\n";
  print "Delete or Keep? [D/k]  ";
  $_=<>;
  chomp;
  if ( ! /k/i )
  {
    delete $Registry->{$overlong};
  }
}

sub check_content
{
   my $root = shift;
   for ( keys %{$Registry->{$root}} )
   {
      &check_content("$root/$_")   if exists $Registry->{"$root/$_/"};
      &process_hidden("$root/$_")  if length($_) > 256;
   }
}


&check_content(@ARGV);