($1,$2) = unpack 'x23 A15 x10 a10', $var;