my @names = (
    'Daniel R Von Vanderschmidt',
    'Daniel Von Vanderschmidt',
    'Daniel De La Silvia',
    'Daniel De Silvia',
    'Daniel La Silvia',
);

for my $name (@names) {
    my @comps = $name =~ m{(?:Von|De La|La).*|\w+}g;
    print "[$_]" for @comps;
    print "\n";
}

##</code><code>##

[Daniel][R][Von Vanderschmidt]
[Daniel][Von Vanderschmidt]
[Daniel][De La Silvia]
[Daniel][De][Silvia]
[Daniel][La Silvia]