just AWTDI:

($flag1, $bytecount, $mystery, $flag2) 
         = unpack "a8 a16 a@{[length($frame)-32]} a8", $frame;
[download]

--
I'd like to be able to assign to an luser