$camel_case_string = 'SomeOtherString';

while ($camel_case_string =~ m/([A-Z][a-z]*)/g){
  push(@camel_case_words,$1)
}

print "@camel_case_words";

##</code><code>##

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print