http://qs1969.pair.com?node_id=118956


in reply to HTML::Clean Review

You might consider an inplace edit instead:
#!/usr/bin/perl $^I = ".bak"; $/ = undef; while (<>) { print STDOUT "$ARGV is being cleaned!\n"; my $h = HTML::Clean->new($_, 9); $h->compat; $h->strip; print ${$h->data}; }
Now you get backups with ".bak" automatically. Good if something messes up.

-- Randal L. Schwartz, Perl hacker