my ($vorname, $nachname) = $t =~ /^\s*(\S(?:.*\S)?)\s+(\S+)\z/s or die "Zu wenig Woerter";