use strict;
use warnings;

my $match = join '|', 'Von', 'De La', 'De', 'La';
my @names = map {chomp; [split]} split "\n", <<NAMES;
Daniel R Von Vanderschmidt
Daniel Von Vanderschmidt
Daniel De La Silvia
Daniel De Silvia
Daniel La Silvia
NAMES

for my $name (@names) {
    my $nameStr = join '~', @$name;
    
    $nameStr =~ s/~($match)~/~$1 /g;
    $name = [split '~', $nameStr];
}

print join ('|', @$_), "\n" for @names;

##</code><code>##

Daniel|R|Von Vanderschmidt
Daniel|Von Vanderschmidt
Daniel|De La Silvia
Daniel|De Silvia
Daniel|La Silvia