#! /usr/local/bin/perl
# elot2ascii.pl -- Version 1.00a 96.02.05 16:49
# (c) 1995, Hellenic Resources Institute, Inc.
#
# This script is a filter from Elot928 Greek to ASCII Greek.
# Command line: elot2ascii.pl < InFile > OutFile

$opendouble = "\140\140";
$closedouble = "\047\047";
$copyright = "(c)";
$registered = "(R)";
$trademark = "(TM)";

while(<>) {

  tr [\213\221\222\233\242\264\266-\376] [``''A'A\267EHI\273O\275YWiABGDEZHQIKLMNJOPR\322STYFXCWIYaehiyabgdezhqiklmnjoprsstyfxcwiyoyw] ;

  s/\253/$opendouble/ge ;
  s/\273/$closedouble/ge ;
  s/\251/$copyright/ge;
  s/\256/$registered/ge;
  s/\231/$trademark/ge;

  print;
}