letztes Wort/Wörter finden

[Grummelchen]

Hej Martin,

es gibt da zwei Möglichkeiten:
my $Satz = "Uli und Petra sind zuhause ";
my $Part1 = $Satz;
$Part1 =~ s/([sind]?\s+[\w]+)\s*$//;
my $Part2 = $1;

oder mit Suchanweisung:
$_ = "Uli und Petra sind zuhause ";
/([sind]?\s+[\w]+)\s*$/;
my $Part2 = $1;
my $Part1 = $'; # <= ob es $', $´ oder $` heißt, mußt Du mal nachlesen.

Zwar ungetestet, sollte aber funktionieren.

Viel Spaß damit,
Marko