$text =~ s/\s+|(STARTPRESERVE(\d?).*?STOPPRESERVE\2)/${[$1,' ']}[!$1]/gs;