>perl -wMstrict -le
"my ($x, $y) = (0, 0);
 if ($x =! $y) { print 'Huh?!?'      }
 if ($x)       { print 'What the...' }
"
Huh?!?
What the...