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

##</code><code>##

$stop ^= "\cP" x length($stop);
($t,$h) = split $stop; 
print pack $t, $h;