slightly OT: perl pack/unpack