$str =~ s/>([^<>]*?)<([^<>]*?)<\//>$1&lt;$2<\//g;