my $tmpText = 'Dies&ist&mein&Testtext&,der&in&Teilen&gelöscht&werden&soll.';

$tmpText =~ s/in.*?gelöscht//g;

print $tmpText;