Help for this page
#!/usr/bin/perl ... } 1
#!/usr/bin/perl ... $tidy->no_expand_entities(1); $tidy->p_strict(1); print $scrubber->scrub($tidy->parse_content($html)->as_XML);