use strict; use warnings; my ($n, $p) = split / /, <>; chomp $p; if($p == $n * $p) { print "=\n"; } else { print "!=\n"; } exit;