Help for this page
print bitstrings('rkt', '^', '%$#');
__________________ ... 'rkt' ^ '%$#' = 'WOW'
use strict ; use warnings; ... } # sub bin2dec {unpack("N", pack("B32", substr("0" x 32 . shift, -32))) +}