my $hex = "d0cf11e0a1b11ae1000000000000000001000000feffffff0000000037000000ffffffff";
my $bin = pack "H*", $hex;

for my $val (unpack "l<*", $bin ) {
    # last if $val == -1;
    print "val=$val\n";
}