$var =~ s!($pattern).*(\1)!!;