$s = pack 'A*', unpack( 'xA*', $s ); # ASCII only, please ;)
print $s, $/;