#!/usr/bin/env perl

use strict;
use warnings;

my @names = (
    'VAN DEN BERGHE',
    'OSWALD',
    'ANDERSON',
    'LLOYD-WRIGHT',
);

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