$p = unpack 'v', pack 'H4', 'd262';;
print $p;;
25298

$y = (($p & 0xFE00) >> 9) + 4;;
$m = (($p & 0x01E0) >> 5) - 1;;
$d = ($p & 0x001F);;

print join '/', $y, $m, $d;;
53/5/18

##</code><code>##

$p = unpack 'n', pack 'H4', 'd262';;
print $p;;
53858

$y = (($p & 0xFE00) >> 9) + 4;;
$m = (($p & 0x01E0) >> 5) - 1;;
$d = ($p & 0x001F);;

print join '/', $y, $m, $d;;
109/2/2