my ($thing) = UnPack (1, $stringpack);