#!/usr/bin/perl

$x;

if(($x=1) eq ($x=2)) {
 print "equal\n";
} else {
 print "not equal\n";
}