Select Code to Download

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

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

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

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

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