my ($char) = unpack sprintf("x%d A", length($string)-1), $string;