my $x = 42; if ($x = /x/) { print "ok\n"; }