my $var;
print "\$var not defined" unless defined $var;

##</code><code>##

if ((-e $info) and ($query ne /support/))

##</code><code>##

if ((-e $info) and ($query ne ($_ =~ /support/)))