my $msg = pack "u", "Secret message that is not so secret";
print "Obscured: $msg";
print "Plain: ", unpack("u", $msg), "\n";