if ( lc($foo) eq "test" ) { print "It was test!\n"; }