Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
    my $altered = join('', map {ucfirst(lc($_))} split /(\s+|-)/, $nam
+e);
    print "$name => $altered\n";
}

Select or download this

VAN DEN BERGHE => Van Den Berghe
OSWALD => Oswald
ANDERSON => Anderson
LLOYD-WRIGHT => Lloyd-Wright