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

##</code><code>##

!$array[$_] and substr( $string, $_, 1 ) = lc substr( $string, $_, 1 )
    for 0 .. $#array;