>perl -e"$_ = 0; die qq{uh oh!\n} if $_ = 1;"
uh oh!

>perl -e"$_ = 0; die qq{uh oh!\n} if 1 = $_;"
Can't modify constant item in scalar assignment at -e line 1, near "$_;"
Execution of -e aborted due to compilation errors.