my @strings=("ab30ff","30","ab1a30");
for (@strings){
    $_=pack ("H*",$_);
}
for my $b1 (@strings){
    print "here: ";
    while ($b1){
        my $b1=substr $b1,0,1,"";
        my $bits=unpack ("B*",$b1);
        print "$bits//";
    }
    print "\n";
}

here: 10101011//00110000//11111111//
here: 
here: 10101011//00011010//