Select Code to Download

use warnings;
use strict;
...
my $out = $xor>>4;
print Dumper($out),"\n";                 # 6
print Dumper(chr $out),"\n";             # "\6"