while () { $_ =~ s!(b)(<.+?>)(cd)(<.+?>)!$1$2$3$4!; print $_; } __DATA__ a+2bcd a+2bcd