sub ucwords {
  (my $new = $_[0]) =~ s/(?<=$_[1])(\w)/\u$1/sg;
  return $new;
}