eq, ne, lt, gt operators
#!perl @fruits = qw( apple orange banana ); foreach $item ( @fruits ) { if ( $item eq "banana" ) { print "String '$item' matches string 'banana'\n"; } if ( $item ne "banana" ) { print "String '$item' does not match string 'banana'\n"; } if ( $item lt "banana" ) { print "String '$item' is less than string 'banana'\n"; } if ( $item gt "banana" ) { print "String '$item' is greater than string 'banana'\n"; } }