in reply to Operator/Regex question

perlop Unary "~" performs bitwise negation, i.e., 1's complement. 
C:\>perl -e"print ~1"
4294967294

C:\>perl -e"print ~~1"
1

[download]

In Section Seekers of Perl Wisdom