#use bytes;

$x = "\xAA";
print unpack 'B*', $x;
print " --> ";
$x = chr( ord( $x ) << 1 );
print unpack 'B*', $x;

print "\n---\n";

$x = pack( "C*", 0xAA );
print unpack 'B*', $x;
print " --> ";
$x = pack( "C", unpack( "C", $x ) << 1 );
print unpack 'B*', $x;

print "\n---\n";