{if (index($fl, '1') != -1) $flag=1; else $flag=0; \n;} ####