#!/usr/bin/perl
# utf82iso.pl -- Version 1.0 2004.05.19
# Converts UTF-8 to ISO-8859-7
# (c) 2004 Hellenic Resources Institute, Inc.

while(<>) {
	s/\316([\200-\277])/pack("C",unpack("C",$1)+48)/eg;
	s/\317([\200-\217])/pack("C",unpack("C",$1)+112)/eg;
	print;
}
exit;