Select Code to Download

use warnings;
use strict;
...
111111111111111111111111111111111 0001 FFFF FFFF width=33

0101010101010101010101010101010101010101010101010101010101010101 5555 
+5555 5555 5555 width=64

sub b2h {
    my $revbin = reverse shift;
    $revbin =~ s/([01]{1,4})/sprintf "%X", oct('0b' . reverse $1)/eg;
    return reverse $revbin;
}