[0] Perl> printf "%b\n", ~(1<<0);;
1111111111111111111111111111111111111111111111111111111111111110
[0] Perl> printf "%b\n", ~(1);;
1111111111111111111111111111111111111111111111111111111111111110
[0] Perl> printf "%b\n", ~1;;
1111111111111111111111111111111111111111111111111111111111111110