sub nukeMSsmarts {
my $s = shift;
# Map incompatible CP-1252 characters
$s =~ s/\x82/,/g;
$s =~ s-\x83-f-g;
$s =~ s/\x84/,,/g;
$s =~ s/\x85/.../g;
$s =~ s/\x88/^/g;
$s =~ s-\x89- °/°°-g;
$s =~ s/\x8B/~-g;
$s =~ s-\x99-TM-g;
$s =~ s/\x9B/>/g;
$s =~ s/\x9C/oe/g;
# Now check for any remaining untranslated characters.
$s =~ s/[\x00-\x08\x10-\x1F\x80-\x9F]/*/g;
return $s;
}