You have some typos (extra ':') and you're missing

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