my $num = 22     # 0b00010110
print $num << 2; #   0b01011000

##</code><code>##

perl -wE 'printf "%#010b", 33 # 0b00100001'