#!/usr/local/bin/perl -p

# http://czyborra.com/translit/iso843 1998-07-13
# Mail bug reports to roman@czyborra.com

# This simple program transliterates all basic Greek characters (no
# combining characters, no polytonic Greek, no technical symbols) in
# its UTF-8 encoded input to their UTF-8 encoded Latin equivalents
# according to the 1997 edition of international standard ISO 843

# Double vowel "Euro" instead of "Eyro" according to note 1:
s;(Α|Ε|Ο|α|ε|ο)(Υ|υ);$1u;g;

# Letter-for-letter transliteration according to table 1:
s;ͺ;¸;g;
s;;;?;g;
s;΄;´;g;
s;΅;¨´;g;
s;Ά;Á;g;
s;·;.;g;
s;Έ;É;g;
s;Ή;Ī´;g;
s;Ί;Í;g;
s;Ό;Ó;g;
s;Ύ;Ý;g;
s;Ώ;Ṓ;g;
s;ΐ;ï´;g;
s;Α;A;g;
s;Β;V;g;
s;Γ;G;g;
s;Δ;D;g;
s;Ε;E;g;
s;Ζ;Z;g;
s;Η;Ī;g;
s;Θ;Th;g;
s;Ι;I;g;
s;Κ;K;g;
s;Λ;L;g;
s;Μ;M;g;
s;Ν;N;g;
s;Ξ;X;g;
s;Ο;O;g;
s;Π;P;g;
s;Ρ;R;g;
s;Σ;S;g;
s;Τ;T;g;
s;Υ;Y;g;
s;Φ;F;g;
s;Χ;Ch;g;
s;Ψ;Ps;g;
s;Ω;Ō;g;
s;Ϊ;Ï;g;
s;Ϋ;Ÿ;g;
s;ά;á;g;
s;έ;é;g;
s;ή;ī´;g;
s;ί;í;g;
s;ΰ;ÿ´;g;
s;α;a;g;
s;β;v;g;
s;γ;g;g;
s;δ;d;g;
s;ε;e;g;
s;ζ;z;g;
s;η;ī;g;
s;θ;th;g;
s;ι;i;g;
s;κ;k;g;
s;λ;l;g;
s;μ;m;g;
s;ν;n;g;
s;ξ;x;g;
s;ο;o;g;
s;π;p;g;
s;ρ;r;g;
s;ς;s;g;
s;σ;s;g;
s;τ;t;g;
s;υ;y;g;
s;φ;f;g;
s;χ;ch;g;
s;ψ;ps;g;
s;ω;ō;g;
s;ϊ;ï;g;
s;ϋ;ÿ;g;
s;ό;ó;g;
s;ύ;ý;g;
s;ώ;ṓ;g;
s;Ϝ;W;g;
s;ϲ;S;g;
s;ϳ;j;g;