regsub -all -nocase {<script[^<]*</script>} $abody {} bbody
regsub -all {<[^\>]+>} $bbody {} nbody
puts $out "<documentcontent>"
regsub -all -nocase {<script[^<]*</script>} $abody {} bbody
regsub -all {<[^\>]+>} $bbody {} nbody
puts $out "<documentcontent>"