local($\, $,) = ("\n", " ");
print map { sprintf "%02X", $_ } unpack 'C*', '組織チャット';

##</code><code>##

s/([^0-\7F])/sprintf "&#%d;", ord $1/ge;