Saturday #perl hangover - spot the ugly substr()s that want to be unpack()s