print map "&#$_;", unpack "C*", $text;