perl -e 'use strict; use warnings; my $one = 1; if( $one = 2 ) { print "True\n"; } else { print "False\n"; } '
Found = in conditional, should be == at -e line 1.
True

##</code><code>##

perl -we '$a=1; print  (($a = 2) ? "True" : "False");'
Found = in conditional, should be == at -e line 1.