sub ucwords {
  my($new, $delim) = @_;
  $new =~ s/($delim|^)(.*?)(?=$delim|$)/$1\u\L$2/sg;
  $new;
}