$str =~ s/TRUE/TRUE/i;
 $str =~ s/FALSE/FALSE/i;