if ($_ =~ /$string[$str_index]/i) {