$input='a+2bcd a+2bcd'; $input=~s!<(.*?)>(.*?)!<\1>$2!sg; print "\n$input";