# Translate Windows chars to DOS chars

sub win2dos {
	my @strings = @_;
	return map {
		tr/����������������������ܣ�ѽ�/����������������������������/; $_
	} @strings;
}                 

$example = "e acute: �, e grave: �, a grave: �, a umlaut: �";

print "Original text: $example\n",
      "Translated   : ",
      win2dos $example;