#!perl
# This file is automatically generated at Sun Jan 13 03:11:35 2002 by makecheck.pl
sub checkit {my $nf=''; my $a; my ($uword,$words)=@_;
#-------------------------------------
$_=$uword;
if ((s/σρ$//) && (m/$/) && ($a=$$words{$_}) && ($a=~m/C/))
{
$nf.="$_/C ";
}
#-------------------------------------
$_=$uword;
if ((s/μ$/τψ/) && (m/[^ϊσ]τψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μα$/τψ/) && (m/[^σ]τψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μο$/τψ/) && (m/[^σ]τψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μι$/τψ/) && (m/[^σ]τψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μσρ$/τψσρ/) && (m/[^ϊσ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μασψ$/τψσρ/) && (m/[^σ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μοσψ$/τψσρ/) && (m/[^σ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μισψ$/τψσρ/) && (m/[^σ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μ$/στψ/) && (m/[^ώ].στψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/εμ$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μα$/στψ/) && (m/[^ώ].στψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μα$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μο$/στψ/) && (m/[^ώ].στψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μο$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μι$/στψ/) && (m/[^ώ].στψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μι$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μσρ$/στψσρ/) && (m/στψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μασψ$/στψσρ/) && (m/στψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μοσψ$/στψσρ/) && (m/στψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μισψ$/στψσρ/) && (m/στψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μ$/στι/) && (m/στι$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μα$/στι/) && (m/στι$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μο$/στι/) && (m/στι$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μι$/στι/) && (m/στι$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μσρ$/στισψ/) && (m/στισψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μασψ$/στισψ/) && (m/στισψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μοσψ$/στισψ/) && (m/στισψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μισψ$/στισψ/) && (m/στισψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/$/τι/) && (m/ϊτι$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μα$/τι/) && (m/ϊτι$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μι$/τι/) && (m/ϊτι$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μο$/τι/) && (m/ϊτι$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/$/τψ/) && (m/ϊτψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/σρ$/τψσρ/) && (m/ϊτψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/λ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/λμα$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/λμο$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/λμι$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/λσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/λμασψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/λμοσψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/λμισψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μα$//) && (m/[^αιψρ]$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μο$//) && (m/[^αιψρ]$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μι$//) && (m/[^αιψρ]$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μασψ$/σρ/) && (m/[^αιψρ]σρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μοσψ$/σρ/) && (m/[^αιψρ]σρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/μισψ$/σρ/) && (m/[^αιψρ]σρ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/ο$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/οσψ$/ασψ/) && (m/ασψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/ισψ$/ασψ/) && (m/ασψ$/) && ($a=$$words{$_}) && ($a=~m/L/))
{
$nf.="$_/L ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰσψ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτ$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτσρ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/σψ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/σρ$/ψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰσψ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτσρ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οΰ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οΰσψ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οεν$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οενσρ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οεϋψ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οεϋψσρ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οετε$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οετεσψ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οετ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οετσρ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οΰτ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/οΰτσρ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/υσψ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/υτ$/τι/) && (m/[ϊσ]τι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/υτσρ$/τισψ/) && (m/[ϊσ]τισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δυ$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δυσψ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δεν$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δενσρ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δεϋψ$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δεϋψσρ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δετε$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δετεσψ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δετ$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δετσρ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δυτ$/τι/) && (m/κτι$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/δυτσρ$/τισψ/) && (m/κτισψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/λυ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/λυσψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/ψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/ψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/ψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/ψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/ψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/ψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/ψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/λυτ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/λυτσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/M/))
{
$nf.="$_/M ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτ$/χατψ/) && (m/αχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰσψ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτσρ$/χατψσρ/) && (m/αχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υεν$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υεϋψ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υετε$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υετ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰτ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υενσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υεϋψσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υετεσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υετσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰτσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰΰ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰεν$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰεϋψ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰετε$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰετ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰΰτ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰΰσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰενσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰεϋψσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰετεσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰετσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰΰτσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υεν$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υεϋψ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υετε$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υετ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰτ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υενσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υεϋψσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υετεσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υετσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰτσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ρτψ/) && (m/[αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ρτψ/) && (m/[αευ]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιν$/ρτψ/) && (m/ορτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/ρτψ/) && (m/[αευ]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιϋψ$/ρτψ/) && (m/ορτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/ρτψ/) && (m/[αευ]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτε$/ρτψ/) && (m/ορτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/ρτψ/) && (m/[αευ]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτ$/ρτψ/) && (m/ορτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτ$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτ$/ρτψ/) && (m/[αευ]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ψ/) && (m/ορτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰσψ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰσψ$/ρτψσρ/) && (m/[αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ινσρ$/ρτψσρ/) && (m/ορτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιϋψσρ$/ρτψσρ/) && (m/ορτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτεσψ$/ρτψσρ/) && (m/ορτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτσρ$/ρτψσρ/) && (m/ορτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/σρ$/ψσρ/) && (m/ορτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ατψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υσψ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιν$/ατψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ινσρ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιϋψ$/ατψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιϋψσρ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτε$/ατψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτεσψ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτ$/ατψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτσρ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ψ/) && (m/[φϋύώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/σρ$/ψσρ/) && (m/[φϋύώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υσψ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υτ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/υτσρ$/ατψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ηυ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ηυσψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/φεν$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/φενσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/φεϋψ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/φεϋψσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/φετε$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/φετεσψ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/φετ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/φετσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ηυτ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ηυτσρ$/ώψσρ/) && (m/ώψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/σψ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/σρ$/ψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/U/))
{
$nf.="$_/U ";
}
#-------------------------------------
$_=$uword;
if ((s/μΰ$/ιτψ/) && (m/[βχνπζ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/μΰσψ$/ιτψσρ/) && (m/[βχνπζ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/φυ$/διτψ/) && (m/διτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/φυσψ$/διτψσρ/) && (m/διτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ιτψ/) && (m/[αεμξοςυ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰσψ$/ιτψσρ/) && (m/[αεμξοςυ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ιτψ/) && (m/[φώϋύ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/υσψ$/ιτψσρ/) && (m/[φώϋύ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/φυ$/ϊιτψ/) && (m/ϊιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/φυσψ$/ϊιτψσρ/) && (m/ϊιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυ$/σιτψ/) && (m/σιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυσψ$/σιτψσρ/) && (m/σιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ώυ$/τιτψ/) && (m/[^αειουωόΰρσώ]τιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ύυ$/στιτψ/) && (m/στιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ώυσψ$/τιτψσρ/) && (m/[^αειουωόΰρσώ]τιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ύυσψ$/στιτψσρ/) && (m/στιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$/τψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/νσρ$/τψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋψ$/τψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋψσρ$/τψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/εσψ$/ψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/σρ$/ψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ρτ$/ιτψ/) && (m/[^φώϋύ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ρτσρ$/ιτψσρ/) && (m/[^φώϋύ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ατ$/ιτψ/) && (m/[φώϋύ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ατσρ$/ιτψσρ/) && (m/[φώϋύ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/W/))
{
$nf.="$_/W ";
}
#-------------------------------------
$_=$uword;
if ((s/ψΰ$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψΰσψ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψεν$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψενσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψεϋψ$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψεϋψσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψετε$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψετεσψ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψετ$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψετσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψΰτ$/ιτψ/) && (m/[βχμπ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ψΰτσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χυ$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χυσψ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χεν$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χενσρ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χεϋψ$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χεϋψσρ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χετε$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χετεσψ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χετ$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χετσρ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χυτ$/τψ/) && (m/φιτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/χυτσρ$/τψσρ/) && (m/φιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υεν$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υεϋψ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υετε$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υετ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰτ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υετσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υεϋψσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υετεσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υετσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰτσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰΰ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰεν$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰεϋψ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰετε$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰετ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰΰτ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰΰσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰενσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰεϋψσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰετεσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰετσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰΰτσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υεν$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υεϋψ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υετε$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υετ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰτ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υενσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υεϋψσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υετεσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υετσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰτσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυ$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυσψ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεν$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξενσρ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεϋψ$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεϋψσρ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετε$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετεσψ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετ$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετσρ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυτ$/τψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυτσρ$/τψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰσψ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτ$/τψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτσρ$/τψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δυ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δυσψ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δεν$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δενσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δεϋψ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δεϋψσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δετε$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δετεσψ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δετ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δετσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δυτ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/δυτσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μΰ$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μΰσψ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μεν$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μενσρ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μεϋψ$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μεϋψσρ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μετε$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μετεσψ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μετ$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μετσρ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μΰτ$/ατψ/) && (m/πατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/μΰτσρ$/ατψσρ/) && (m/πατψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρηυ$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρηυσψ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρφεν$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρφενσρ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρφεϋψ$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρφεϋψσρ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρφετε$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρφετεσψ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρφετ$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρφετσρ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρηυτ$/εώψ/) && (m/μεώψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ρηυτσρ$/εώψσρ/) && (m/μεώψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτ$/ρτψ/) && (m/ρτψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰσψ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτσρ$/ρτψσρ/) && (m/ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/υτ$/ατψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/V/))
{
$nf.="$_/V ";
}
#-------------------------------------
$_=$uword;
if ((s/φυ$/δετψ/) && (m/δετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φυσψ$/δετψσρ/) && (m/δετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/μΰ$/ετψ/) && (m/πετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/μΰσψ$/ετψσρ/) && (m/πετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ετψ/) && (m/ςετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰσψ$/ετψσρ/) && (m/ςετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυ$/σετψ/) && (m/σετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιν$/ετψ/) && (m/[δνξπςστ]ετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ινσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιϋψ$/ετψ/) && (m/[δνξπςστ]ετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιϋψσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτε$/ετψ/) && (m/[δνξπςστ]ετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτεσψ$/ετψσρ/) && (m/[δςτ]ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτ$/ετψ/) && (m/[δνξπςστ]ετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ρτ$/ετψ/) && (m/[δνξπςστ]ετψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ρτσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδυ$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδυσψ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδεν$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδενσρ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδεϋψ$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδεϋψσρ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδετε$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδετεσψ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδετ$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδετσρ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδυτ$/ωτψ/) && (m/βωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υδυτσρ$/ωτψσρ/) && (m/βωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χυ$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χυσψ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χεν$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χενσρ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χεϋψ$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χεϋψσρ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χετε$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χετεσψ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χετ$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χετσρ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χυτ$/τψ/) && (m/μωτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/χυτσρ$/τψσρ/) && (m/μωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φυ$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φυσψ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φεν$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φενσρ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φεϋψ$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φεϋψσρ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φετε$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φετεσψ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φετ$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φετσρ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φυτ$/ϊατψ/) && (m/ϊατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φυτσρ$/ϊατψσρ/) && (m/ϊατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυ$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυσψ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋεν$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋενσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋεϋψ$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋεϋψσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋετε$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋετεσψ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋετ$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋετσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυτ$/σατψ/) && (m/[^ο]σατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυτσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υσψ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υτ$/ατψ/) && (m/οσατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υτσρ$/ατψσρ/) && (m/οσατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ηυ$/φατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ηυσψ$/φατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιν$/ατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ινσρ$/ατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιϋψ$/ατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιϋψσρ$/ατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτε$/ατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτεσψ$/ατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτ$/ατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτσρ$/ατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ηυτ$/φατψ/) && (m/φατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ηυτσρ$/φατψσρ/) && (m/φατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰτ$/ιτψ/) && (m/μιτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/νσρ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/διν$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δινσρ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋψ$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋψσρ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/διτε$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/διτεσψ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/στ$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/στσρ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δυτ$/τψ/) && (m/δατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δυτσρ$/τψσρ/) && (m/δατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώυ$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώυσψ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώεν$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώενσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώεϋψ$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώεϋψσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώετε$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώετεσψ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώετ$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώετσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώυτ$/λατψ/) && (m/[^σ]λατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώυτσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύυ$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύυσψ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύεν$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύενσρ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύεϋψ$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύεϋψσρ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύετε$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύετεσψ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύετ$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύετσρ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύυτ$/σλατψ/) && (m/σλατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ύυτσρ$/σλατψσρ/) && (m/σλατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςυ$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςυσψ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςεν$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςενσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςεϋψ$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςεϋψσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςετε$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςετεσψ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςετ$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςετσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςυτ$/ςατψ/) && (m/[βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εςυτσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςυ$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςυσψ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςεν$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςενσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςεϋψ$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςεϋψσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςετε$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςετεσψ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςετ$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςετσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςυτ$/ςατψ/) && (m/[^βδ]ςατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ςυτσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώυ$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώυσψ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώεν$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώενσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώεϋψ$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώεϋψσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώετε$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώετεσψ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώετ$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώετσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώυτ$/τατψ/) && (m/[^σ]τατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ώυτσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυ$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυσψ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεν$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξενσρ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεϋψ$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεϋψσρ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετε$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετεσψ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετ$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετσρ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυτ$/τψ/) && (m/στατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυτσρ$/τψσρ/) && (m/στατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/μΰ$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/μΰσψ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιν$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ινσρ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιϋψ$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιϋψσρ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτε$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτεσψ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτ$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτσρ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ρτ$/ατψ/) && (m/σπατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ρτσρ$/ατψσρ/) && (m/σπατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμΰ$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμΰσψ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμεν$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμενσρ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμεϋψ$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμεϋψσρ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμετε$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμετεσψ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμετ$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμετσρ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμΰτ$/σματψ/) && (m/σματψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋμΰτσρ$/σματψσρ/) && (m/σματψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υσψ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψσρ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετεσψ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετσρ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υτ$/ατψ/) && (m/ςχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υτσρ$/ατψσρ/) && (m/ςχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχυ$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχυσψ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχεν$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχενσρ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχεϋψ$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχεϋψσρ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχετε$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχετεσψ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχετ$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχετσρ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχυτ$/χατψ/) && (m/ϊχατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οχυτσρ$/χατψσρ/) && (m/ϊχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξΰ$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξΰσψ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξιν$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξινσρ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξιϋψ$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξιϋψσρ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξιτε$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξιτεσψ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξιτ$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξιτσρ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξρτ$/ξατψ/) && (m/ηξατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/οξρτσρ$/ξατψσρ/) && (m/ηξατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυσψ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋεν$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋενσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋεϋψ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋεϋψσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋετε$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋετεσψ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋετ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋετσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυτ$/θατψ/) && (m/θατψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋυτσρ$/θατψσρ/) && (m/θατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τυ$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τεν$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τεϋψ$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τετε$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τετ$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τυτ$/εστψ/) && (m/ώεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ρδυ$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ρδεν$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ρδεϋψ$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ρδετε$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ρδετ$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ρδυτ$/εστψ/) && (m/σεστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υτ$/τψ/) && (m/μεϊτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δυ$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δυσψ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δεν$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δενσρ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δεϋψ$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δεϋψσρ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δετε$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δετεσψ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δετ$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δετσρ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δυτ$/στψ/) && (m/αστψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δυτσρ$/στψσρ/) && (m/αστψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυ$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυσψ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεν$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξενσρ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεϋψ$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεϋψσρ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετε$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετεσψ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετ$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξετσρ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυτ$/ρτψ/) && (m/νρτψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ξυτσρ$/ρτψσρ/) && (m/νρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/εϋψ$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετε$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ετ$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/υτ$/ι/) && (m/ςαστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δυ$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δυσψ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δεν$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δενσρ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δεϋψ$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δεϋψσρ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δετε$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δετεσψ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δετ$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δετσρ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δυτ$/στι/) && (m/χεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/δυτσρ$/στισψ/) && (m/χεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τυ$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τυσψ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τεν$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τενσρ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τεϋψ$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τεϋψσρ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τετε$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τετεσψ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τετ$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τετσρ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τυτ$/στι/) && (m/μεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/τυτσρ$/στισψ/) && (m/μεστισψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/βυ$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/βεν$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/βεϋψ$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/βετε$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/βετ$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/βυτ$/στι/) && (m/ςεστι$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ηυ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φεν$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φεϋψ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φετε$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/φετ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/ηυτ$/ώψ/) && (m/ώψ$/) && ($a=$$words{$_}) && ($a=~m/Y/))
{
$nf.="$_/Y ";
}
#-------------------------------------
$_=$uword;
if ((s/κ$/τψ/) && (m/[αερ]τψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/κσρ$/τψσρ/) && (m/[αερ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/κτε$/τψ/) && (m/[αερ]τψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/κτεσψ$/τψσρ/) && (m/[αερ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/$/τψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ψ/) && (m/ιτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/σψ$/τψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/τεσψ$/τψσρ/) && (m/ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτε$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/ισψ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτεσψ$/οτψσρ/) && (m/οτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτε$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/ισψ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτεσψ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/οκ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/οκτε$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/οκσρ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/οκτεσψ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/B/))
{
$nf.="$_/B ";
}
#-------------------------------------
$_=$uword;
if ((s/υκ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/υκσρ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/υκτε$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/υκτεσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/υκ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/υκτε$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/υκσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/υκτεσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰκ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰκτε$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰκσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰκτεσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ατψ/) && (m/[φώ]ατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ισψ$/ατψσρ/) && (m/[φώ]ατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋι$/σατψ/) && (m/σατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋιτε$/σατψ/) && (m/σατψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋισψ$/σατψσρ/) && (m/σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ϋιτεσψ$/σατψσρ/) && (m/σατψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/κ$/ιτψ/) && (m/[αεο]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/κτε$/ιτψ/) && (m/[αεο]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/κσρ$/ιτψσρ/) && (m/[αεο]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/κτεσψ$/ιτψσρ/) && (m/[αεο]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ψ$/ιτψ/) && (m/[^αεο]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ψτε$/ιτψ/) && (m/[^αεο]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ψσρ$/ιτψσρ/) && (m/[^αεο]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ψτεσψ$/ιτψσρ/) && (m/[^αεο]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ψ$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ψτε$/υτψ/) && (m/υτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ψσρ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ψτεσψ$/υτψσρ/) && (m/υτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/κ$/ρτψ/) && (m/[αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/κτε$/ρτψ/) && (m/[αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/κσρ$/ρτψσρ/) && (m/[αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/κτεσψ$/ρτψσρ/) && (m/[αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ετψ/) && (m/ετψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ισψ$/ετψσρ/) && (m/ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτε$/ετψ/) && (m/ετψ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ιτεσψ$/ετψσρ/) && (m/ετψσρ$/) && ($a=$$words{$_}) && ($a=~m/T/))
{
$nf.="$_/T ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/τψ/) && (m/[αε]τψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/ρσψ$/τψσρ/) && (m/[αε]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/τψ/) && (m/[^αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/ρσψ$/τψσρ/) && (m/[^αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/$/τψ/) && (m/[αεου]ρτψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/σψ$/τψσρ/) && (m/[αεου]ρτψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/ιτψ/) && (m/[^φώϋύ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/ρσψ$/ιτψσρ/) && (m/[^φώϋύ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/α$/ιτψ/) && (m/[φώϋύ]ιτψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/ασψ$/ιτψσρ/) && (m/[φώϋύ]ιτψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/ορ$/ωτψ/) && (m/ωτψ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/ορσψ$/ωτψσρ/) && (m/ωτψσρ$/) && ($a=$$words{$_}) && ($a=~m/P/))
{
$nf.="$_/P ";
}
#-------------------------------------
$_=$uword;
if ((s/υρ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
{
$nf.="$_/Q ";
}
#-------------------------------------
$_=$uword;
if ((s/υρσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
{
$nf.="$_/Q ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰρ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
{
$nf.="$_/Q ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰρσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
{
$nf.="$_/Q ";
}
#-------------------------------------
$_=$uword;
if ((s/υρ$/οχατψ/) && (m/οχατψ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
{
$nf.="$_/Q ";
}
#-------------------------------------
$_=$uword;
if ((s/υρσψ$/οχατψσρ/) && (m/οχατψσρ$/) && ($a=$$words{$_}) && ($a=~m/Q/))
{
$nf.="$_/Q ";
}
#-------------------------------------
$_=$uword;
if ((s/χ$/τψ/) && (m/[αειουωρ]τψ$/) && ($a=$$words{$_}) && ($a=~m/R/))
{
$nf.="$_/R ";
}
#-------------------------------------
$_=$uword;
if ((s/χϋισψ$/τψσρ/) && (m/[αειουωρ]τψσρ$/) && ($a=$$words{$_}) && ($a=~m/R/))
{
$nf.="$_/R ";
}
#-------------------------------------
$_=$uword;
if ((s/χ$/στψ/) && (m/στψ$/) && ($a=$$words{$_}) && ($a=~m/R/))
{
$nf.="$_/R ";
}
#-------------------------------------
$_=$uword;
if ((s/χϋισψ$/στψσρ/) && (m/στψσρ$/) && ($a=$$words{$_}) && ($a=~m/R/))
{
$nf.="$_/R ";
}
#-------------------------------------
$_=$uword;
if ((s/ο$/ωκ/) && (m/[χμξςτ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/Z/))
{
$nf.="$_/Z ";
}
#-------------------------------------
$_=$uword;
if ((s/$/κ/) && (m/[σγ]λικ$/) && ($a=$$words{$_}) && ($a=~m/Z/))
{
$nf.="$_/Z ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ικ/) && (m/ύικ$/) && ($a=$$words{$_}) && ($a=~m/Z/))
{
$nf.="$_/Z ";
}
#-------------------------------------
$_=$uword;
if ((s/οηο$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εηο$/ωκ/) && (m/γωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ονυ$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ενυ$/ωκ/) && (m/γωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$/κ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ον$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ωκ/) && (m/γωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/κ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/θ$/κ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/νι$/κ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/αρ$/ωκ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οκ$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οΰ$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ωκ/) && (m/γωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰ$/ωκ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οε$/ωκ/) && (m/[^γ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εε$/ωκ/) && (m/γωκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οηο$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ονυ$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$/κ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ον$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/κ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/θ$/κ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/νι$/κ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/αρ$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οκ$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οΰ$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰ$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οε$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εηο$/ικ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ενυ$/ικ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$/κ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ικ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/κ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/θ$/κ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/νι$/κ/) && (m/[φξςϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εηοσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ενυσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ινσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ενσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ιεσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ιθσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ινισρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ρρ$/ικ/) && (m/ξικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/αρ$/ικ/) && (m/[φϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ικ/) && (m/[φξϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εΰ$/ικ/) && (m/[φξϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰΰ$/ικ/) && (m/ξικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰ$/ικ/) && (m/[φϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εε$/ικ/) && (m/[φξϋύώ]ικ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/αρσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εκσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/εεσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οηο$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ονυ$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ιν$/οκ/) && (m/[ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ων$/οκ/) && (m/[^ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ον$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ιε$/οκ/) && (m/[ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ωε$/οκ/) && (m/[^ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ιθ$/οκ/) && (m/[ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ωθ$/οκ/) && (m/[^ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ινι$/οκ/) && (m/[ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ωνι$/οκ/) && (m/[^ηφλθϋύώ]οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/αρ$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/υΰ$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οε$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οηο$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ονυ$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ων$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ον$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/α$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οκ$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ο$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ω$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ωθ$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ωνι$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/α$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ο$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/οκ$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ον$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ω$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ωθ$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ων$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/ωνι$//) && (m/χ$/) && ($a=$$words{$_}) && ($a=~m/A/))
{
$nf.="$_/A ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ωκ/) && (m/[^ξ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/α$/ωκ/) && (m/[^ξ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ο$/ωκ/) && (m/[^ξ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ω$/ωκ/) && (m/[^ξ]ωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/εξ$/ξωκ/) && (m/[^εκμξψ]ξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ωκ/) && (m/εξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/εξ$/κξωκ/) && (m/κξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/οξ$/ξωκ/) && (m/μξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/εξ$/ψξωκ/) && (m/ψξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ξα$/ξωκ/) && (m/[^ξ]ξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ξο$/ξωκ/) && (m/[^ξ]ξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ξω$/ξωκ/) && (m/[^ξ]ξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ολ$/λικ/) && (m/[^αεικουωψ]λικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ικ/) && (m/[αειουω]λικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ελ$/κλικ/) && (m/κλικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ελ$/ψλικ/) && (m/ψλικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ικ/) && (m/[ηφώθύ]ικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/α$/ικ/) && (m/[ηφλθώύ]ικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ο$/ικ/) && (m/[ηλθ]ικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ικ/) && (m/[φώύ]ικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ικ/) && (m/[ηφλθώύ]ικ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/α$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ο$/οκ/) && (m/οκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ω$/οκ/) && (m/[^ηθ]οκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/οκ/) && (m/[ηθ]οκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ξωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/α$/ξωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ο$/ξωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/ω$/ξωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/S/))
{
$nf.="$_/S ";
}
#-------------------------------------
$_=$uword;
if ((s/α$/ωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/X/))
{
$nf.="$_/X ";
}
#-------------------------------------
$_=$uword;
if ((s/ο$/ωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/X/))
{
$nf.="$_/X ";
}
#-------------------------------------
$_=$uword;
if ((s/ω$/ωκ/) && (m/ξξωκ$/) && ($a=$$words{$_}) && ($a=~m/X/))
{
$nf.="$_/X ";
}
#-------------------------------------
$_=$uword;
if ((s/εε$/ωκ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ωκ/) && (m/ωκ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/κ$/ε/) && (m/εε$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ρ/) && (m/[^ι]ρ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/εΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/E/))
{
$nf.="$_/E ";
}
#-------------------------------------
$_=$uword;
if ((s/ω$/α/) && (m/[^ηφλθώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/α/) && (m/[ηφλθώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/οκ$/α/) && (m/[^φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/οΰ$/α/) && (m/[^φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/α/) && (m/[φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/εΰ$/α/) && (m/[φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/$/α/) && (m/[^λ]α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ολ$/λα/) && (m/[^αεφικουγώϋψωΰρ]λα$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/λ$/λα/) && (m/[αειουωΰρ]λα$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ελ$/λα/) && (m/[φγώϋ]λα$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ελ$/κλα/) && (m/κλα$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ελ$/ψλα/) && (m/ψλα$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$//) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/νι$//) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/θ$//) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ρ/) && (m/[^ι]ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/εΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/κ$/ρ/) && (m/[ειυ]ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/εξ$/ξρ/) && (m/[^αεϊικουωψ]ξρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ψ$/ρ/) && (m/[αειουω]ξρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/εξ$/κξρ/) && (m/κξρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/εξ$/ψξρ/) && (m/ψξρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/νι$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/θ$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/I/))
{
$nf.="$_/I ";
}
#-------------------------------------
$_=$uword;
if ((s/ω$/α/) && (m/[^ηφλθώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/α/) && (m/[ηφλθώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/α/) && (m/α$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/οκ$/α/) && (m/[^φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/οΰ$/α/) && (m/[^φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/α/) && (m/[φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/εΰ$/α/) && (m/[φγώϋύ]α$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ρ/) && (m/[^ι]ρ$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/εΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/H/))
{
$nf.="$_/H ";
}
#-------------------------------------
$_=$uword;
if ((s/α$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ον$//) && (m/[^εφκογώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ω$//) && (m/[^ηεφκλοθώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$//) && (m/[ηφλθώϋύ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$//) && (m/[φώϋύ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/οχ$//) && (m/[^εφκογώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/αν$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ανι$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/αθ$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/κ/) && (m/[^ι]κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/κ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/κ/) && (m/[αεουΰρ]κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/εχ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρν$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρνι$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρθ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρνι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρθ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/α$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$//) && (m/ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ε/) && (m/ιε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ε/) && (m/[^φιγύψ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ε/) && (m/[φύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/κ$/ε/) && (m/ιε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ικ$/ψε/) && (m/ψε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρν$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/αν$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρνι$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ανι$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ρθ$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/αθ$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/α$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$//) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ο/) && (m/[ιώϋ]λο$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ο/) && (m/[χηδστ]ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/αν$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/ανι$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/αθ$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/K/))
{
$nf.="$_/K ";
}
#-------------------------------------
$_=$uword;
if ((s/α$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ον$//) && (m/[^εφκογώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$//) && (m/[^εκοψ]$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/κ/) && (m/[^ι]κ$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/κ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/α$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ε/) && (m/[^φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ε/) && (m/[φγϋύ]ε$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$//) && (m/ε$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ε/) && (m/ιε$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/α$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$//) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ο/) && (m/ο$/) && ($a=$$words{$_}) && ($a=~m/J/))
{
$nf.="$_/J ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$//) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/αν$/ψ/) && (m/[φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/ρν$/ψ/) && (m/[^φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/ανι$/ψ/) && (m/[φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/ρνι$/ψ/) && (m/[^φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/αθ$/ψ/) && (m/[φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/ρθ$/ψ/) && (m/[^φώϋύ]ψ$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/α$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/ον$//) && (m/[^φγώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/οχ$//) && (m/[^φγώϋύψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/αν$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/ανι$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/αθ$//) && (m/[^ψ]$/) && ($a=$$words{$_}) && ($a=~m/N/))
{
$nf.="$_/N ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$//) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/λα$/ολ/) && (m/ξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/λυ$/ολ/) && (m/ξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/λον$/ολ/) && (m/ξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/λε$/ολ/) && (m/ξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/ρτα$/εξολ/) && (m/εξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/ατα$/οξολ/) && (m/οξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/ρτ$/εξολ/) && (m/εξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/ατ$/οξολ/) && (m/οξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/ρταν$/εξολ/) && (m/εξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/αταν$/οξολ/) && (m/οξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/ρτανι$/εξολ/) && (m/εξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/ατανι$/οξολ/) && (m/οξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/ρταθ$/εξολ/) && (m/εξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/αταθ$/οξολ/) && (m/οξολ$/) && ($a=$$words{$_}) && ($a=~m/F/))
{
$nf.="$_/F ";
}
#-------------------------------------
$_=$uword;
if ((s/ψεηο$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψενυ$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψιν$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψεν$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψρ$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψεκ$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψΰ$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψε$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψι$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψιθ$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψινι$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ξρ$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ξΰ$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεν$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ξε$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ξι$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ξεκ$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ξρν$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ξρνι$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ξρθ$/εξψ/) && (m/εξψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λα$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λυ$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λον$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λε$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λι$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λοχ$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λαν$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λανι$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λαθ$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/τρ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/τΰ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/τεν$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/τε$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/τι$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/τεκ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/τρν$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/τρνι$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/τρθ$/οτψ/) && (m/οτψ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/γα$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/κγα$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψγα$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/γυ$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/κγυ$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψγυ$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/κγεν$/εγ/) && (m/[αει]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/γε$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/κγε$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψγε$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/γω$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/κγω$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψγω$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/εχ$//) && (m/[αξςρ]γ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/κγεχ$/εγ/) && (m/[αει]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/γαν$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/κγαν$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψγαν$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/γανι$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/κγανι$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψγανι$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/γαθ$/εγ/) && (m/[^αειομ]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/κγαθ$/εγ/) && (m/[αειο]εγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψγαθ$/εγ/) && (m/μεγ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λα$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψλα$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λυ$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψλυ$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λον$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψλον$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λε$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψλε$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λι$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψλι$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λοχ$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψλοχ$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λαν$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψλαν$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λανι$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψλανι$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/λαθ$/ελ/) && (m/[φώϋ]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ψλαθ$/ελ/) && (m/[μξς]ελ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/μα$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/μυ$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/μον$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/με$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/μω$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/μοχ$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/μαν$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/μανι$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/μαθ$/εμ/) && (m/εμ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ρν$/ι/) && (m/[αβδειμξοςστ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/αν$/ι/) && (m/[^αβδειμξοςστ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ρνι$/ι/) && (m/[αβειμξοςσ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ρνι$/ι/) && (m/[αςσ]τι$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ανι$/ι/) && (m/[^αβδειμξοςστ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ρθ$/ι/) && (m/[αβδειμξοςστ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/αθ$/ι/) && (m/[^αβδειμξοςστ]ι$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/αν$/ω/) && (m/ω$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ανι$/ω/) && (m/ω$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/αθ$/ω/) && (m/ω$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$//) && (m/[αρ]$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/νι$//) && (m/[αρ]$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/θ$//) && (m/[αρ]$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/α$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ον$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$//) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ιξ/) && (m/ξιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ω$/ιξ/) && (m/ςιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/$/ιξ/) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/αν$/ιξ/) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/ανι$/ιξ/) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/αθ$/ιξ/) && (m/ιξ$/) && ($a=$$words{$_}) && ($a=~m/O/))
{
$nf.="$_/O ";
}
#-------------------------------------
$_=$uword;
if ((s/α$//) && (m/[^εκλοψρ]$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/υ$//) && (m/[^εκλοψρ]$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ων$//) && (m/[^εφκλογώϋύψρ]$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$//) && (m/[^εκλοψρ]$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/οηο$/ικ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ονυ$/ικ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$/κ/) && (m/κ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$/κ/) && (m/[^ι]κ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ον$/ικ/) && (m/ικ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/λα$/ελ/) && (m/ελ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/λυ$/ελ/) && (m/ελ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/λον$/ελ/) && (m/ελ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/λε$/ελ/) && (m/ελ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/λα$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/λυ$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/λον$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/λε$/ολ/) && (m/ολ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ρ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/εν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ρν$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ρνι$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ρθ$/ψ/) && (m/ψ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ι$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ε$/ρ/) && (m/[^ι]ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/εκ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/εΰ$/ρ/) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/κ$/ρ/) && (m/[ειυ]ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/εξ$/ξρ/) && (m/[^αεϊικουωψ]ξρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ψ$/ρ/) && (m/[αειουω]ξρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/εξ$/κξρ/) && (m/κξρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/εξ$/ψξρ/) && (m/ψξρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/ν$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/νι$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
#-------------------------------------
$_=$uword;
if ((s/θ$//) && (m/ρ$/) && ($a=$$words{$_}) && ($a=~m/G/))
{
$nf.="$_/G ";
}
$_=$uword;
if ($$words{$_})
{
$nf.="$_/! ";
}
return $nf;
} 1
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to check.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc