in reply to bit string

print unpack"B8", pack "C",$a;

In Section Seekers of Perl Wisdom