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