I finally ended up having to go to Win32API::Registry to make this work.

use strict;
$|=1;
use Win32API::Registry qw( :ALL );
my ($key, $uIndex, $name, $nameLength, $type, $data, $dataLength );
my $ok=RegOpenKeyEx( HKEY_LOCAL_MACHINE , "SOFTWARE\\Microsoft\\Window
+s NT\\CurrentVersion\\Fonts", 0, KEY_READ, $key );
if($key){
    my $uIndex=0;
    do{
         RegEnumValue ( $key, $uIndex, $name, $nameLength, [], $type, 
+$data, $dataLength );
         print "$name=$data\r\n";
         $uIndex++;
         }
     while(!regLastError());
    }
RegCloseKey( $key );
[download]