my @komponenten = $t =~ /\S+/g;
my $vorname = shift @komponenten;
die "Zu wenig Woerter" unless @komponenten;
while (@komponenten > 1 && $komponenten[0] !~ /^[[:lower:]]/) {
    $vorname .= ' ' . shift(@komponenten);
}
my $nachname = join ' ', @komponenten;