local $, = ' ';
local $\ = "\n";

print unpack 'U*', $str;
print map ord, split //, $str;