$mask = eval '0b' . ( 1 x $bits ) . ( 0 x ( 32 - $bits ) );