print "Original utf8: ", unpack('H*', $msg),"\b";
print "Result     utf8: ", unpack('H*', "$new_msg"), "\n";