print unpack 'u*', '92G5S="!!;F]T:&5R(%!E<FP@2&%C:V5R+```';

##</code><code>##

print pack 'u*', $binstring;

##</code><code>##

print pack 'H*', '4A75737420416E6F74686572205065726C204861636B65722C';

##</code><code>##

print unpack 'H*', $binstring;