c:\@Work\Perl>perl -Mstrict -le
"print 'A: equal' if 0      == 'exit';
 print 'B: equal' if 'exit' == 'exit';
 print 'C: equal' if 'foo'  == 'exit';
 print 'D: equal' if 1      == 'exit';
"
A: equal
B: equal
C: equal