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

##</code><code>##

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

##</code><code>##

1. match $_ with /support/ 
2. compare the result (which will be true or false) 
   as a string with $query...

##</code><code>##

perldoc perlre
perldoc perlop (look at the section on m// )

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.