my $input_lines = ; chomp($input_lines); my ($p,$n) = split(/ / , $input_lines); if($p == $p * $n){ print"=\n"; }else{ print"!=\n"; };