Das ~ ist ein Operator für bitbezogene (komme gerade nicht auf korrekten Ausdruck) Negation.
http://www.perl.com/doc/manual/html/pod/perlop.htm...