#!perl -w
use strict;
use Win32::TieRegistry ( FixSzNulls => 1 );

my $Classes= $Registry->{"Classes\\"};
my @keynames= $Classes->SubKeyNames();

my @list0= grep { lc($Classes->{"$_\\"}->GetValue('')) eq 'intermediate file' }  @keynames;
my (@list1, @list2);
foreach (@list0) {
   if (/^\./) {  push @list2, $_; }
   else { push @list1, $_; }
   }
my $matchexp= join ("|", map{"^\Q$_\E\$"}(@list1));
$matchexp= qr($matchexp);

push @list2, grep { /^\./ && lc($Classes->{"$_\\"}->GetValue('')) =~ /$matchexp/ } @keynames;

print join ("\n", @list2);