my $var = "Vieles mehr am Anfang Das soll alles weg vieles mehr am Ende"; my $pattern = ""; $var =~ s!($pattern).*($pattern)!$1$2!g; print $var;