echo $S | perl -wpE's!<\w+\s*/>!!g; s!<(\w+)[^>]*>[^<]*</\1>!!g while /<\w+[^>]*>/'