$s = unpack 'xa*', "qwerty  ";
print "'$s'\n";