# De-crapper (for use after Word HTML idiocy)
my $file = join '',<>;

$file =~ s/<li.*?>/<li>/gms;
$file =~ s/<p.*?>/<p>/gms;
$file =~ s/<\/?o:.*?>//gms;
$file =~ s/<!.*?>//gms;
$file =~ s/<h2.*?>/<h2>/gms;
$file =~ s/<div .*?>//gms;
$file =~ s/<\/?span.*?>//gms;

print $file;