$str =~ s@<(.*?)/>@@g;
1 while $str =~ s@<(.*?)>\s*</\1>@@g;
$str =~ s@(?<=>)\s+(?=\n)@@g;