$ find /usr/local/lib/perl -name '*pm' | xargs grep xor /usr/local/lib/perl/5.6.1/DateTime.pm: if ( $self->{tz}->is_floating xor $was_floating ) /usr/local/lib/perl/5.6.1/Date/Calc/Object.pm: if ($val1 xor $val2);