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