sub setting{
            if (substr($regex,0,2)eq 'tr') 
               {$state='disabled'}
            else 
               {$state='active'};
            }