$var =~ s!($pattern).*($pattern)!!; # zu /g siehe unten