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