$\="\n";
$_='Hello World!'; print;
$_=pack'(U)*',map{hex}unpack'(H4)*'; print;
$_=pack'(H4)*',map{sprintf"%04X",$_}unpack'(U)*'; print;