Select Code to Download

for my $i (0 .. $#array) {
    substr($string, $i, 1) = lc substr($string, $i, 1)
        if $array[$i] eq q();
}

$altered_string =
    join q(),
...
        $array[$_] eq q() ? lc($char) : $char;
    }
    0 .. length $string;