S='
not_show_1
show_1
not_show_2
show_2' echo $S | perl -pe 's!<\w+\s*/>!!g; s!<(\w+)[^>]*>([^<]*|(?R))*!!g;' show_1 show_2