in reply to unpack Binary FAIL

I didn't quite follow what you are actually trying for; is it sprintf("%*v08b", "", "ABCD")'? See https://perldoc.perl.org/functions/sprintf#vector-flag

In Section Seekers of Perl Wisdom