$_ = "a+2b" . "cdfoo\n"; s!<(.*?)>(.*?)!<$1>$2!g; print;