in reply to what would you like to see in perl5.12?
This reminded of another one that I've wanted on several occasions, and seen come up here a few times also.
So, vec( $bits, 30, 5 ) = 31; would do the right thing.