If that red is accurate, it appears that microsoft lists its colors in BGR (relentlessly little-endian?).

# my @rgb =  reverse unpack 'xCCC', $colornum;  #wrong
my @rgb = (
    $colornum & 255,
    $colornum >> 8 & 255,
    $colornum >> 16 & 255
};
my $hex = join '', map {sprintf '%x', $_} @rgb;
print "#${hex}";
[download]

Update: Oops, corrected code