for ($stuff[2]) {
  s/(?=[A-Z])/U/g;
  s/(?=[a-z])/L/g;
}