perl -e 'my $x; if ($x = 1) {}'