use strict;
use warnings;
my $foo = "";
if ( $foo ne "bar" ) { print "lala\n"; }