!$array[$_] && $string =~ s/(?<=^.{$_})(.)/lc $1/e for 0 .. $#array;