#!/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};
}