use strict; my $a = ; my @list = split(/ /,$a); if(@list[0] * @list[1] == @list[1]) { print "=\n"; } else { print "!=\n"; }