#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

my @strings=("ab30ff","30","ab1a30");
for (@strings){
    $_=hex $_;
}

foreach my $hex (@strings)
{
   printf "%08b\n", $hex;

}

__END__
101010110011000011111111
00110000
101010110001101000110000