sub b2i {
    return split //, unpack('b*', @_);
}

##</code><code>##

sub b2i {
    my $bitstring = unpack('b*', @_);
    $bitstring =~ s/0+$//;
    return split //, $bitstring;
}