From http://perldoc.perl.org/functions/vec.html

@bits = split(//, unpack("b*", $vector));
[download]