Select Code to Download

use Data::Dumper;
@names=('de lowen','doe','de la mancha');
...
  @comps = $name =~ m{(?:von|de la|de|van|der|le|el|la).*|\w+}g;
}
print Dumper(@comps);

$VAR1 = 'de la mancha';