$str=~s!(<table:table-cell[^<>]*?)(>[^<>]*<[^<>]*>[^<>]*)\%protected\%!$1 table:protected="true"$2!gs