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