$string=~s/(pattern1).*(pattern2)/$1$2/s;