$array[$_] or substr($string, $_, 1) |= "\x20" for 0 .. $#array;
[download]

This will not work for letters with code points exceeding 255.