$ perl -e 'use strict; use warnings; my $one = 1; my $two = 2; if( $one = $two ) { print "True\n"; } else { print "False\n"; } ' True $