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