$stop = "H* ";
$stop .= unpack "H*", "just another perl hacker";
$stop ^= "\cP" x length($stop);
print $stop;