in reply to Re: prune xml of empty elementsin thread prune xml of empty elements
$str =~ s@<(.*?)/>@@g; 1 while $str =~ s@<(.*?)>\s*</\1>@@g; $str =~ s@(?<=>)\s+(?=\n)@@g; [download]