C:\Documents and Settings\Administrator\Desktop\scripts>perl form.pl
SELECT engine, lable1,settings3, settings4 FROM special_fields WHERE engine IN (".join(",",map(->quote
(), red blue orange green)).") AND
(settings1="public" OR settings2="public" OR settings3="public" )
C:\Documents and Settings\Administrator\Desktop\scripts>