my $tmpText = Dies&ist&mein&Testtext&,der&in&Teilen&gelöscht&werden&soll.
my $tmpText = s/in .. gelöscht//g;
1 2 3 4 5
my $tmpText = 'Dies&ist&mein&Testtext&,der&in&Teilen&gelöscht&werden&soll.'; $tmpText =~ s/in.*?gelöscht//g; print $tmpText;
$tmpText =~ s/\bin\b.*?\bgelöscht\b//g;