print unpack '(B4)*', $vec;

##</code><code>##

print map{ vec( $vec, $_, 4) } 0 .. 99;