$string = '4B';

($out = $string) =~ s/(.)/unpack 'B8', $1/eg;