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