in reply to how to set bits in an arbitrary length string

(vec $binary,14,1) = 1;

In Section Seekers of Perl Wisdom