$lower[abcdefghijklmnopqrstuvwxyz0123456789абвгдеёжзийклмнопрстуфхцчшщъыьэюя]
$upper[^lower.upper[]]
$s[$lower^#0A$upper]

$sl[$s]
$n(^lower.length[])
^for[i](0;$n-1){$sl[^sl.match[^lower.mid($i;1)][gi]{.}]}

$su[$s]
$n(^upper.length[])
^for[i](0;$n-1){$su[^su.match[^upper.mid($i;1)][gi]{.}]}

<pre>
$s
^s.match[[$lower]][gi]{.}
^s.match[[$upper]][gi]{.}
$sl
$su
</pre>