C:\Users\neniro>perl -e "printf '%#b', ~1"
0b1111111111111111111111111111111111111111111111111111111111111110
C:\Users\neniro>perl -e "printf '%#b', ~~1"
0b1