#!/usr/bin/perl
# uni2win.pl -- Version 0.01 98.02.22 02:57
# Converts UTF-8 to Windows-1253
# Encodings: http://premium.microsoft.com/msdn/library/books/techlang/devintl/d3/s2574.htm
# Algorithm: http://www.talisman.org/utf8.html
# (c) 1998 Hellenic Resources Institute, Inc.

while(<>) {			# All others stay as is.  This does not convert unknowns to 0xFFFE.
s/\xE2\x80\x93/\x96/g;	#	EN DASH
s/\xE2\x80\x94/\x97/g;	#	EM DASH
s/\xE2\x80\x98/\x91/g;	#	LEFT SINGLE QUOTATION MARK
s/\xE2\x80\x99/\x92/g;	#	RIGHT SINGLE QUOTATION MARK - Yes, I hate this one...  Any better ideas?
s/\xE2\x80\x9A/\x82/g;	#	SINGLE LOW-9 QUOTATION MARK
s/\xE2\x80\x9C/\x93/g;	#	LEFT DOUBLE QUOTATION MARK
s/\xE2\x80\x9D/\x94/g;	#	RIGHT DOUBLE QUOTATION MARK
s/\xE2\x80\x9E/\x84/g;	#	DOUBLE LOW-9 QUOTATION MARK
s/\xE2\x80\xA0/\x86/g;	#	DAGGER
s/\xE2\x80\xA1/\x87/g;	#	DOUBLE DAGGER
s/\xE2\x80\xA2/\x95/g;	#	BULLET
s/\xE2\x80\xA6/\x85/g;	#	HORIZONTAL ELLIPSIS
s/\xE2\x80\xB0/\x89/g;	#	PER MILLE SIGN
s/\xE2\x80\xB9/\x8B/g;	#	SINGLE LEFT-POINTING ANGLE QUOTATION MARK
s/\xE2\x80\xBA/\x9B/g;	#	SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
s/\xE2\x84\xA2/\x99/g;	#	TRADE MARK SIGN
s/\xC2\xA0/\xA0/g;	#	NO-BREAK SPACE
s/\xC2\xA3/\xA3/g;	#	POUND SIGN
s/\xC2\xA4/\xA4/g;	#	CURRENCY SIGN
s/\xC2\xA5/\xA5/g;	#	YEN SIGN
s/\xC2\xA6/\xA6/g;	#	BROKEN BAR
s/\xC2\xA7/\xA7/g;	#	SECTION SIGN
s/\xC2\xA8/\xA8/g;	#	DIAERESIS
s/\xC2\xA9/\xA9/g;	#	COPYRIGHT SIGN
s/\xC2\xAA/\xAA/g;	#	FEMININE ORDINAL INDICATOR
s/\xC2\xAB/\xAB/g;	#	LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
s/\xC2\xAC/\xAC/g;	#	NOT SIGN
s/\xC2\xAD/\xAD/g;	#	SOFT HYPHEN
s/\xC2\xAE/\xAE/g;	#	REGISTERED SIGN
s/\xC2\xAF/\xAF/g;	#	HORIZONTAL BAR
s/\xC2\xB0/\xB0/g;	#	DEGREE SIGN
s/\xC2\xB1/\xB1/g;	#	PLUS-MINUS SIGN
s/\xC2\xB2/\xB2/g;	#	SUPERSCRIPT TWO
s/\xC2\xB3/\xB3/g;	#	SUPERSCRIPT THREE
s/\xC2\xB5/\xB5/g;	#	MICRO SIGN
s/\xC2\xB6/\xB6/g;	#	PILCROW SIGN
s/\xC2\xB7/\xB7/g;	#	MIDDLE DOT
s/\xC2\xBB/\xBB/g;	#	RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
s/\xC2\xBD/\xBD/g;	#	VULGAR FRACTION ONE HALF
s/\xC6\x92/\x83/g;	#	LATIN SMALL LETTER F WITH HOOK
s/\xCE\x84/\xB4/g;	#	GREEK TONOS
s/\xCE\x85/\xA1/g;	#	GREEK DIALYTIKA TONOS
s/\xCE\x86/\xA2/g;	#	GREEK CAPITAL LETTER ALPHA WITH TONOS
s/\xCE\x88/\xB8/g;	#	GREEK CAPITAL LETTER EPSILON WITH TONOS
s/\xCE\x89/\xB9/g;	#	GREEK CAPITAL LETTER ETA WITH TONOS
s/\xCE\x8A/\xBA/g;	#	GREEK CAPITAL LETTER IOTA WITH TONOS
s/\xCE\x8C/\xBC/g;	#	GREEK CAPITAL LETTER OMICRON WITH TONOS
s/\xCE\x8E/\xBE/g;	#	GREEK CAPITAL LETTER UPSILON WITH TONOS
s/\xCE\x8F/\xBF/g;	#	GREEK CAPITAL LETTER OMEGA WITH TONOS
s/\xCE\x90/\xC0/g;	#	GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
s/\xCE\x91/\xC1/g;	#	GREEK CAPITAL LETTER ALPHA
s/\xCE\x93/\xC3/g;	#	GREEK CAPITAL LETTER GAMMA
s/\xCE\x94/\xC4/g;	#	GREEK CAPITAL LETTER DELTA
s/\xCE\x95/\xC5/g;	#	GREEK CAPITAL LETTER EPSILON
s/\xCE\x97/\xC7/g;	#	GREEK CAPITAL LETTER ETA
s/\xCE\x98/\xC8/g;	#	GREEK CAPITAL LETTER THETA
s/\xCE\x99/\xC9/g;	#	GREEK CAPITAL LETTER IOTA
s/\xCE\x9A/\xCA/g;	#	GREEK CAPITAL LETTER KAPPA
s/\xCE\x9B/\xCB/g;	#	GREEK CAPITAL LETTER LAMDA
s/\xCE\x9C/\xCC/g;	#	GREEK CAPITAL LETTER MU
s/\xCE\x9D/\xCD/g;	#	GREEK CAPITAL LETTER NU
s/\xCE\xA0/\xD0/g;	#	GREEK CAPITAL LETTER PI
s/\xCE\xA1/\xD1/g;	#	GREEK CAPITAL LETTER RHO
s/\xCE\xA3/\xD3/g;	#	GREEK CAPITAL LETTER SIGMA
s/\xCE\xA4/\xD4/g;	#	GREEK CAPITAL LETTER TAU
s/\xCE\xA5/\xD5/g;	#	GREEK CAPITAL LETTER UPSILON
s/\xCE\xA6/\xD6/g;	#	GREEK CAPITAL LETTER PHI
s/\xCE\xA7/\xD7/g;	#	GREEK CAPITAL LETTER CHI
s/\xCE\xA8/\xD8/g;	#	GREEK CAPITAL LETTER PSI
s/\xCE\xA9/\xD9/g;	#	GREEK CAPITAL LETTER OMEGA
s/\xCE\xAA/\xDA/g;	#	GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
s/\xCE\xAB/\xDB/g;	#	GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
s/\xCE\xAC/\xDC/g;	#	GREEK SMALL LETTER ALPHA WITH TONOS
s/\xCE\xAD/\xDD/g;	#	GREEK SMALL LETTER EPSILON WITH TONOS
s/\xCE\xAE/\xDE/g;	#	GREEK SMALL LETTER ETA WITH TONOS
s/\xCE\xAF/\xDF/g;	#	GREEK SMALL LETTER IOTA WITH TONOS
s/\xCE\xB0/\xE0/g;	#	GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
s/\xCE\xB1/\xE1/g;	#	GREEK SMALL LETTER ALPHA
s/\xCE\xB3/\xE3/g;	#	GREEK SMALL LETTER GAMMA
s/\xCE\xB4/\xE4/g;	#	GREEK SMALL LETTER DELTA
s/\xCE\xB5/\xE5/g;	#	GREEK SMALL LETTER EPSILON
s/\xCE\xB6/\xE6/g;	#	GREEK SMALL LETTER ZETA
s/\xCE\xB7/\xE7/g;	#	GREEK SMALL LETTER ETA
s/\xCE\xB8/\xE8/g;	#	GREEK SMALL LETTER THETA
s/\xCE\xB9/\xE9/g;	#	GREEK SMALL LETTER IOTA
s/\xCE\xBA/\xEA/g;	#	GREEK SMALL LETTER KAPPA
s/\xCE\xBB/\xEB/g;	#	GREEK SMALL LETTER LAMDA
s/\xCE\xBC/\xEC/g;	#	GREEK SMALL LETTER MU
s/\xCE\xBD/\xED/g;	#	GREEK SMALL LETTER NU
s/\xCE\xBE/\xEE/g;	#	GREEK SMALL LETTER XI
s/\xCE\xBF/\xEF/g;	#	GREEK SMALL LETTER OMICRON
s/\xCF\xC0/\xF0/g;	#	GREEK SMALL LETTER PI
s/\xCF\xC1/\xF1/g;	#	GREEK SMALL LETTER RHO
s/\xCF\xC2/\xF2/g;	#	GREEK SMALL LETTER FINAL SIGMA
s/\xCF\xC3/\xF3/g;	#	GREEK SMALL LETTER SIGMA
s/\xCF\xC4/\xF4/g;	#	GREEK SMALL LETTER TAU
s/\xCF\xC5/\xF5/g;	#	GREEK SMALL LETTER UPSILON
s/\xCF\xC6/\xF6/g;	#	GREEK SMALL LETTER PHI
s/\xCF\xC7/\xF7/g;	#	GREEK SMALL LETTER CHI
s/\xCF\xC8/\xF8/g;	#	GREEK SMALL LETTER PSI
s/\xCF\xC9/\xF9/g;	#	GREEK SMALL LETTER OMEGA
s/\xCF\xCA/\xFA/g;	#	GREEK SMALL LETTER IOTA WITH DIALYTIKA
s/\xCF\xCB/\xFB/g;	#	GREEK SMALL LETTER UPSILON WITH DIALYTIKA
s/\xCF\xCC/\xFC/g;	#	GREEK SMALL LETTER OMICRON WITH TONOS
s/\xCF\xCD/\xFD/g;	#	GREEK SMALL LETTER UPSILON WITH TONOS
s/\xCF\xCE/\xFE/g;	#	GREEK SMALL LETTER OMEGA WITH TONOS
s/\xCE\xB2/\xE2/g;	#	GREEK SMALL LETTER BETA
s/\xCE\x92/\xC2/g;	#	GREEK CAPITAL LETTER BETA
s/\xCE\x96/\xC6/g;	#	GREEK CAPITAL LETTER ZETA
s/\xCE\x9E/\xCE/g;	#	GREEK CAPITAL LETTER XI
s/\xCE\x9F/\xCF/g;	#	GREEK CAPITAL LETTER OMICRON

print;
}