#or perhaps $w=32; $v |= $v>>($w>>=1) while $w;