1:
2: use locale;
3: use DBI;
4: use POSIX qw (locale_h);
5:
6: sub getflag
7: {
8:
9: my $w=$_[0]->quote($_[1]);
10: my $z= $_[0] -> prepare("select flag, id from nf where word=$w");
11: $z -> execute;
12: @res=$z->fetchrow();
13: }
14:
15:
16:
17: sub checkword
18: {
19:
20: my ($dbh,$u)=($_[0],uc $_[1]);
21: my @list;
22:
23: $_=$u;
24: if ((s/σρ$//) && (m/$/))
25: { ($fl,$id)=getflag($dbh,$_);
26: if ($fl && ($fl=~m/C/)){push @list, $id}}
27: $_=$u;
28: if ((s/μ$/τψ/) && (m/[^ϊσ]τψ$/))
29: { ($fl,$id)=getflag($dbh,$_);
30: if ($fl && ($fl=~m/L/)){push @list, $id}}
31: $_=$u;
32: if ((s/μα$/τψ/) && (m/[^σ]τψ$/))
33: { ($fl,$id)=getflag($dbh,$_);
34: if ($fl && ($fl=~m/L/)){push @list, $id}}
35: $_=$u;
36: if ((s/μο$/τψ/) && (m/[^σ]τψ$/))
37: { ($fl,$id)=getflag($dbh,$_);
38: if ($fl && ($fl=~m/L/)){push @list, $id}}
39: $_=$u;
40: if ((s/μι$/τψ/) && (m/[^σ]τψ$/))
41: { ($fl,$id)=getflag($dbh,$_);
42: if ($fl && ($fl=~m/L/)){push @list, $id}}
43: $_=$u;
44: if ((s/μσρ$/τψσρ/) && (m/[^ϊσ]τψσρ$/))
45: { ($fl,$id)=getflag($dbh,$_);
46: if ($fl && ($fl=~m/L/)){push @list, $id}}
47: $_=$u;
48: if ((s/μασψ$/τψσρ/) && (m/[^σ]τψσρ$/))
49: { ($fl,$id)=getflag($dbh,$_);
50: if ($fl && ($fl=~m/L/)){push @list, $id}}
51: $_=$u;
52: if ((s/μοσψ$/τψσρ/) && (m/[^σ]τψσρ$/))
53: { ($fl,$id)=getflag($dbh,$_);
54: if ($fl && ($fl=~m/L/)){push @list, $id}}
55: $_=$u;
56: if ((s/μισψ$/τψσρ/) && (m/[^σ]τψσρ$/))
57: { ($fl,$id)=getflag($dbh,$_);
58: if ($fl && ($fl=~m/L/)){push @list, $id}}
59: $_=$u;
60: if ((s/μ$/στψ/) && (m/[^ώ].στψ$/))
61: { ($fl,$id)=getflag($dbh,$_);
62: if ($fl && ($fl=~m/L/)){push @list, $id}}
63: $_=$u;
64: if ((s/εμ$/εστψ/) && (m/ώεστψ$/))
65: { ($fl,$id)=getflag($dbh,$_);
66: if ($fl && ($fl=~m/L/)){push @list, $id}}
67: $_=$u;
68: if ((s/μα$/στψ/) && (m/[^ώ].στψ$/))
69: { ($fl,$id)=getflag($dbh,$_);
70: if ($fl && ($fl=~m/L/)){push @list, $id}}
71: $_=$u;
72: if ((s/μα$/εστψ/) && (m/ώεστψ$/))
73: { ($fl,$id)=getflag($dbh,$_);
74: if ($fl && ($fl=~m/L/)){push @list, $id}}
75: $_=$u;
76: if ((s/μο$/στψ/) && (m/[^ώ].στψ$/))
77: { ($fl,$id)=getflag($dbh,$_);
78: if ($fl && ($fl=~m/L/)){push @list, $id}}
79: $_=$u;
80: if ((s/μο$/εστψ/) && (m/ώεστψ$/))
81: { ($fl,$id)=getflag($dbh,$_);
82: if ($fl && ($fl=~m/L/)){push @list, $id}}
83: $_=$u;
84: if ((s/μι$/στψ/) && (m/[^ώ].στψ$/))
85: { ($fl,$id)=getflag($dbh,$_);
86: if ($fl && ($fl=~m/L/)){push @list, $id}}
87: $_=$u;
88: if ((s/μι$/εστψ/) && (m/ώεστψ$/))
89: { ($fl,$id)=getflag($dbh,$_);
90: if ($fl && ($fl=~m/L/)){push @list, $id}}
91: $_=$u;
92: if ((s/μσρ$/στψσρ/) && (m/στψσρ$/))
93: { ($fl,$id)=getflag($dbh,$_);
94: if ($fl && ($fl=~m/L/)){push @list, $id}}
95: $_=$u;
96: if ((s/μασψ$/στψσρ/) && (m/στψσρ$/))
97: { ($fl,$id)=getflag($dbh,$_);
98: if ($fl && ($fl=~m/L/)){push @list, $id}}
99: $_=$u;
100: if ((s/μοσψ$/στψσρ/) && (m/στψσρ$/))
101: { ($fl,$id)=getflag($dbh,$_);
102: if ($fl && ($fl=~m/L/)){push @list, $id}}
103: $_=$u;
104: if ((s/μισψ$/στψσρ/) && (m/στψσρ$/))
105: { ($fl,$id)=getflag($dbh,$_);
106: if ($fl && ($fl=~m/L/)){push @list, $id}}
107: $_=$u;
108: if ((s/μ$/στι/) && (m/στι$/))
109: { ($fl,$id)=getflag($dbh,$_);
110: if ($fl && ($fl=~m/L/)){push @list, $id}}
111: $_=$u;
112: if ((s/μα$/στι/) && (m/στι$/))
113: { ($fl,$id)=getflag($dbh,$_);
114: if ($fl && ($fl=~m/L/)){push @list, $id}}
115: $_=$u;
116: if ((s/μο$/στι/) && (m/στι$/))
117: { ($fl,$id)=getflag($dbh,$_);
118: if ($fl && ($fl=~m/L/)){push @list, $id}}
119: $_=$u;
120: if ((s/μι$/στι/) && (m/στι$/))
121: { ($fl,$id)=getflag($dbh,$_);
122: if ($fl && ($fl=~m/L/)){push @list, $id}}
123: $_=$u;
124: if ((s/μσρ$/στισψ/) && (m/στισψ$/))
125: { ($fl,$id)=getflag($dbh,$_);
126: if ($fl && ($fl=~m/L/)){push @list, $id}}
127: $_=$u;
128: if ((s/μασψ$/στισψ/) && (m/στισψ$/))
129: { ($fl,$id)=getflag($dbh,$_);
130: if ($fl && ($fl=~m/L/)){push @list, $id}}
131: $_=$u;
132: if ((s/μοσψ$/στισψ/) && (m/στισψ$/))
133: { ($fl,$id)=getflag($dbh,$_);
134: if ($fl && ($fl=~m/L/)){push @list, $id}}
135: $_=$u;
136: if ((s/μισψ$/στισψ/) && (m/στισψ$/))
137: { ($fl,$id)=getflag($dbh,$_);
138: if ($fl && ($fl=~m/L/)){push @list, $id}}
139: $_=$u;
140: if ((s/$/τι/) && (m/ϊτι$/))
141: { ($fl,$id)=getflag($dbh,$_);
142: if ($fl && ($fl=~m/L/)){push @list, $id}}
143: $_=$u;
144: if ((s/μα$/τι/) && (m/ϊτι$/))
145: { ($fl,$id)=getflag($dbh,$_);
146: if ($fl && ($fl=~m/L/)){push @list, $id}}
147: $_=$u;
148: if ((s/μι$/τι/) && (m/ϊτι$/))
149: { ($fl,$id)=getflag($dbh,$_);
150: if ($fl && ($fl=~m/L/)){push @list, $id}}
151: $_=$u;
152: if ((s/μο$/τι/) && (m/ϊτι$/))
153: { ($fl,$id)=getflag($dbh,$_);
154: if ($fl && ($fl=~m/L/)){push @list, $id}}
155: $_=$u;
156: if ((s/$/τψ/) && (m/ϊτψ$/))
157: { ($fl,$id)=getflag($dbh,$_);
158: if ($fl && ($fl=~m/L/)){push @list, $id}}
159: $_=$u;
160: if ((s/σρ$/τψσρ/) && (m/ϊτψσρ$/))
161: { ($fl,$id)=getflag($dbh,$_);
162: if ($fl && ($fl=~m/L/)){push @list, $id}}
163: $_=$u;
164: if ((s/λ$/ώψ/) && (m/ώψ$/))
165: { ($fl,$id)=getflag($dbh,$_);
166: if ($fl && ($fl=~m/L/)){push @list, $id}}
167: $_=$u;
168: if ((s/λμα$/ώψ/) && (m/ώψ$/))
169: { ($fl,$id)=getflag($dbh,$_);
170: if ($fl && ($fl=~m/L/)){push @list, $id}}
171: $_=$u;
172: if ((s/λμο$/ώψ/) && (m/ώψ$/))
173: { ($fl,$id)=getflag($dbh,$_);
174: if ($fl && ($fl=~m/L/)){push @list, $id}}
175: $_=$u;
176: if ((s/λμι$/ώψ/) && (m/ώψ$/))
177: { ($fl,$id)=getflag($dbh,$_);
178: if ($fl && ($fl=~m/L/)){push @list, $id}}
179: $_=$u;
180: if ((s/λσρ$/ώψσρ/) && (m/ώψσρ$/))
181: { ($fl,$id)=getflag($dbh,$_);
182: if ($fl && ($fl=~m/L/)){push @list, $id}}
183: $_=$u;
184: if ((s/λμασψ$/ώψσρ/) && (m/ώψσρ$/))
185: { ($fl,$id)=getflag($dbh,$_);
186: if ($fl && ($fl=~m/L/)){push @list, $id}}
187: $_=$u;
188: if ((s/λμοσψ$/ώψσρ/) && (m/ώψσρ$/))
189: { ($fl,$id)=getflag($dbh,$_);
190: if ($fl && ($fl=~m/L/)){push @list, $id}}
191: $_=$u;
192: if ((s/λμισψ$/ώψσρ/) && (m/ώψσρ$/))
193: { ($fl,$id)=getflag($dbh,$_);
194: if ($fl && ($fl=~m/L/)){push @list, $id}}
195: $_=$u;
196: if ((s/μα$//) && (m/[^αιψρ]$/))
197: { ($fl,$id)=getflag($dbh,$_);
198: if ($fl && ($fl=~m/L/)){push @list, $id}}
199: $_=$u;
200: if ((s/μο$//) && (m/[^αιψρ]$/))
201: { ($fl,$id)=getflag($dbh,$_);
202: if ($fl && ($fl=~m/L/)){push @list, $id}}
203: $_=$u;
204: if ((s/μι$//) && (m/[^αιψρ]$/))
205: { ($fl,$id)=getflag($dbh,$_);
206: if ($fl && ($fl=~m/L/)){push @list, $id}}
207: $_=$u;
208: if ((s/μασψ$/σρ/) && (m/[^αιψρ]σρ$/))
209: { ($fl,$id)=getflag($dbh,$_);
210: if ($fl && ($fl=~m/L/)){push @list, $id}}
211: $_=$u;
212: if ((s/μοσψ$/σρ/) && (m/[^αιψρ]σρ$/))
213: { ($fl,$id)=getflag($dbh,$_);
214: if ($fl && ($fl=~m/L/)){push @list, $id}}
215: $_=$u;
216: if ((s/μισψ$/σρ/) && (m/[^αιψρ]σρ$/))
217: { ($fl,$id)=getflag($dbh,$_);
218: if ($fl && ($fl=~m/L/)){push @list, $id}}
219: $_=$u;
220: if ((s/ο$/α/) && (m/α$/))
221: { ($fl,$id)=getflag($dbh,$_);
222: if ($fl && ($fl=~m/L/)){push @list, $id}}
223: $_=$u;
224: if ((s/ι$/α/) && (m/α$/))
225: { ($fl,$id)=getflag($dbh,$_);
226: if ($fl && ($fl=~m/L/)){push @list, $id}}
227: $_=$u;
228: if ((s/οσψ$/ασψ/) && (m/ασψ$/))
229: { ($fl,$id)=getflag($dbh,$_);
230: if ($fl && ($fl=~m/L/)){push @list, $id}}
231: $_=$u;
232: if ((s/ισψ$/ασψ/) && (m/ασψ$/))
233: { ($fl,$id)=getflag($dbh,$_);
234: if ($fl && ($fl=~m/L/)){push @list, $id}}
235: $_=$u;
236: if ((s/ΰ$/τψ/) && (m/[αε]τψ$/))
237: { ($fl,$id)=getflag($dbh,$_);
238: if ($fl && ($fl=~m/M/)){push @list, $id}}
239: $_=$u;
240: if ((s/ΰσψ$/τψσρ/) && (m/[αε]τψσρ$/))
241: { ($fl,$id)=getflag($dbh,$_);
242: if ($fl && ($fl=~m/M/)){push @list, $id}}
243: $_=$u;
244: if ((s/εν$/τψ/) && (m/[αε]τψ$/))
245: { ($fl,$id)=getflag($dbh,$_);
246: if ($fl && ($fl=~m/M/)){push @list, $id}}
247: $_=$u;
248: if ((s/ενσρ$/τψσρ/) && (m/[αε]τψσρ$/))
249: { ($fl,$id)=getflag($dbh,$_);
250: if ($fl && ($fl=~m/M/)){push @list, $id}}
251: $_=$u;
252: if ((s/εϋψ$/τψ/) && (m/[αε]τψ$/))
253: { ($fl,$id)=getflag($dbh,$_);
254: if ($fl && ($fl=~m/M/)){push @list, $id}}
255: $_=$u;
256: if ((s/εϋψσρ$/τψσρ/) && (m/[αε]τψσρ$/))
257: { ($fl,$id)=getflag($dbh,$_);
258: if ($fl && ($fl=~m/M/)){push @list, $id}}
259: $_=$u;
260: if ((s/ετε$/τψ/) && (m/[αε]τψ$/))
261: { ($fl,$id)=getflag($dbh,$_);
262: if ($fl && ($fl=~m/M/)){push @list, $id}}
263: $_=$u;
264: if ((s/ετεσψ$/τψσρ/) && (m/[αε]τψσρ$/))
265: { ($fl,$id)=getflag($dbh,$_);
266: if ($fl && ($fl=~m/M/)){push @list, $id}}
267: $_=$u;
268: if ((s/ετ$/τψ/) && (m/[αε]τψ$/))
269: { ($fl,$id)=getflag($dbh,$_);
270: if ($fl && ($fl=~m/M/)){push @list, $id}}
271: $_=$u;
272: if ((s/ετσρ$/τψσρ/) && (m/[αε]τψσρ$/))
273: { ($fl,$id)=getflag($dbh,$_);
274: if ($fl && ($fl=~m/M/)){push @list, $id}}
275: $_=$u;
276: if ((s/ΰτ$/τψ/) && (m/[αε]τψ$/))
277: { ($fl,$id)=getflag($dbh,$_);
278: if ($fl && ($fl=~m/M/)){push @list, $id}}
279: $_=$u;
280: if ((s/ΰτσρ$/τψσρ/) && (m/[αε]τψσρ$/))
281: { ($fl,$id)=getflag($dbh,$_);
282: if ($fl && ($fl=~m/M/)){push @list, $id}}
283: $_=$u;
284: if ((s/$/τψ/) && (m/υτψ$/))
285: { ($fl,$id)=getflag($dbh,$_);
286: if ($fl && ($fl=~m/M/)){push @list, $id}}
287: $_=$u;
288: if ((s/σψ$/τψσρ/) && (m/υτψσρ$/))
289: { ($fl,$id)=getflag($dbh,$_);
290: if ($fl && ($fl=~m/M/)){push @list, $id}}
291: $_=$u;
292: if ((s/εν$/υτψ/) && (m/υτψ$/))
293: { ($fl,$id)=getflag($dbh,$_);
294: if ($fl && ($fl=~m/M/)){push @list, $id}}
295: $_=$u;
296: if ((s/ενσρ$/υτψσρ/) && (m/υτψσρ$/))
297: { ($fl,$id)=getflag($dbh,$_);
298: if ($fl && ($fl=~m/M/)){push @list, $id}}
299: $_=$u;
300: if ((s/εϋψ$/υτψ/) && (m/υτψ$/))
301: { ($fl,$id)=getflag($dbh,$_);
302: if ($fl && ($fl=~m/M/)){push @list, $id}}
303: $_=$u;
304: if ((s/εϋψσρ$/υτψσρ/) && (m/υτψσρ$/))
305: { ($fl,$id)=getflag($dbh,$_);
306: if ($fl && ($fl=~m/M/)){push @list, $id}}
307: $_=$u;
308: if ((s/ετε$/υτψ/) && (m/υτψ$/))
309: { ($fl,$id)=getflag($dbh,$_);
310: if ($fl && ($fl=~m/M/)){push @list, $id}}
311: $_=$u;
312: if ((s/ετεσψ$/υτψσρ/) && (m/υτψσρ$/))
313: { ($fl,$id)=getflag($dbh,$_);
314: if ($fl && ($fl=~m/M/)){push @list, $id}}
315: $_=$u;
316: if ((s/ετ$/υτψ/) && (m/υτψ$/))
317: { ($fl,$id)=getflag($dbh,$_);
318: if ($fl && ($fl=~m/M/)){push @list, $id}}
319: $_=$u;
320: if ((s/ετσρ$/υτψσρ/) && (m/υτψσρ$/))
321: { ($fl,$id)=getflag($dbh,$_);
322: if ($fl && ($fl=~m/M/)){push @list, $id}}
323: $_=$u;
324: if ((s/$/ψ/) && (m/υτψ$/))
325: { ($fl,$id)=getflag($dbh,$_);
326: if ($fl && ($fl=~m/M/)){push @list, $id}}
327: $_=$u;
328: if ((s/σρ$/ψσρ/) && (m/υτψσρ$/))
329: { ($fl,$id)=getflag($dbh,$_);
330: if ($fl && ($fl=~m/M/)){push @list, $id}}
331: $_=$u;
332: if ((s/ΰ$/οτψ/) && (m/οτψ$/))
333: { ($fl,$id)=getflag($dbh,$_);
334: if ($fl && ($fl=~m/M/)){push @list, $id}}
335: $_=$u;
336: if ((s/ΰσψ$/οτψσρ/) && (m/οτψσρ$/))
337: { ($fl,$id)=getflag($dbh,$_);
338: if ($fl && ($fl=~m/M/)){push @list, $id}}
339: $_=$u;
340: if ((s/εν$/οτψ/) && (m/οτψ$/))
341: { ($fl,$id)=getflag($dbh,$_);
342: if ($fl && ($fl=~m/M/)){push @list, $id}}
343: $_=$u;
344: if ((s/ενσρ$/οτψσρ/) && (m/οτψσρ$/))
345: { ($fl,$id)=getflag($dbh,$_);
346: if ($fl && ($fl=~m/M/)){push @list, $id}}
347: $_=$u;
348: if ((s/εϋψ$/οτψ/) && (m/οτψ$/))
349: { ($fl,$id)=getflag($dbh,$_);
350: if ($fl && ($fl=~m/M/)){push @list, $id}}
351: $_=$u;
352: if ((s/εϋψσρ$/οτψσρ/) && (m/οτψσρ$/))
353: { ($fl,$id)=getflag($dbh,$_);
354: if ($fl && ($fl=~m/M/)){push @list, $id}}
355: $_=$u;
356: if ((s/ετε$/οτψ/) && (m/οτψ$/))
357: { ($fl,$id)=getflag($dbh,$_);
358: if ($fl && ($fl=~m/M/)){push @list, $id}}
359: $_=$u;
360: if ((s/ετεσψ$/οτψσρ/) && (m/οτψσρ$/))
361: { ($fl,$id)=getflag($dbh,$_);
362: if ($fl && ($fl=~m/M/)){push @list, $id}}
363: $_=$u;
364: if ((s/ετ$/οτψ/) && (m/οτψ$/))
365: { ($fl,$id)=getflag($dbh,$_);
366: if ($fl && ($fl=~m/M/)){push @list, $id}}
367: $_=$u;
368: if ((s/ετσρ$/οτψσρ/) && (m/οτψσρ$/))
369: { ($fl,$id)=getflag($dbh,$_);
370: if ($fl && ($fl=~m/M/)){push @list, $id}}
371: $_=$u;
372: if ((s/ΰτ$/οτψ/) && (m/οτψ$/))
373: { ($fl,$id)=getflag($dbh,$_);
374: if ($fl && ($fl=~m/M/)){push @list, $id}}
375: $_=$u;
376: if ((s/ΰτσρ$/οτψσρ/) && (m/οτψσρ$/))
377: { ($fl,$id)=getflag($dbh,$_);
378: if ($fl && ($fl=~m/M/)){push @list, $id}}
379: $_=$u;
380: if ((s/οΰ$/ωτψ/) && (m/ωτψ$/))
381: { ($fl,$id)=getflag($dbh,$_);
382: if ($fl && ($fl=~m/M/)){push @list, $id}}
383: $_=$u;
384: if ((s/οΰσψ$/ωτψσρ/) && (m/ωτψσρ$/))
385: { ($fl,$id)=getflag($dbh,$_);
386: if ($fl && ($fl=~m/M/)){push @list, $id}}
387: $_=$u;
388: if ((s/οεν$/ωτψ/) && (m/ωτψ$/))
389: { ($fl,$id)=getflag($dbh,$_);
390: if ($fl && ($fl=~m/M/)){push @list, $id}}
391: $_=$u;
392: if ((s/οενσρ$/ωτψσρ/) && (m/ωτψσρ$/))
393: { ($fl,$id)=getflag($dbh,$_);
394: if ($fl && ($fl=~m/M/)){push @list, $id}}
395: $_=$u;
396: if ((s/οεϋψ$/ωτψ/) && (m/ωτψ$/))
397: { ($fl,$id)=getflag($dbh,$_);
398: if ($fl && ($fl=~m/M/)){push @list, $id}}
399: $_=$u;
400: if ((s/οεϋψσρ$/ωτψσρ/) && (m/ωτψσρ$/))
401: { ($fl,$id)=getflag($dbh,$_);
402: if ($fl && ($fl=~m/M/)){push @list, $id}}
403: $_=$u;
404: if ((s/οετε$/ωτψ/) && (m/ωτψ$/))
405: { ($fl,$id)=getflag($dbh,$_);
406: if ($fl && ($fl=~m/M/)){push @list, $id}}
407: $_=$u;
408: if ((s/οετεσψ$/ωτψσρ/) && (m/ωτψσρ$/))
409: { ($fl,$id)=getflag($dbh,$_);
410: if ($fl && ($fl=~m/M/)){push @list, $id}}
411: $_=$u;
412: if ((s/οετ$/ωτψ/) && (m/ωτψ$/))
413: { ($fl,$id)=getflag($dbh,$_);
414: if ($fl && ($fl=~m/M/)){push @list, $id}}
415: $_=$u;
416: if ((s/οετσρ$/ωτψσρ/) && (m/ωτψσρ$/))
417: { ($fl,$id)=getflag($dbh,$_);
418: if ($fl && ($fl=~m/M/)){push @list, $id}}
419: $_=$u;
420: if ((s/οΰτ$/ωτψ/) && (m/ωτψ$/))
421: { ($fl,$id)=getflag($dbh,$_);
422: if ($fl && ($fl=~m/M/)){push @list, $id}}
423: $_=$u;
424: if ((s/οΰτσρ$/ωτψσρ/) && (m/ωτψσρ$/))
425: { ($fl,$id)=getflag($dbh,$_);
426: if ($fl && ($fl=~m/M/)){push @list, $id}}
427: $_=$u;
428: if ((s/υ$/τι/) && (m/[ϊσ]τι$/))
429: { ($fl,$id)=getflag($dbh,$_);
430: if ($fl && ($fl=~m/M/)){push @list, $id}}
431: $_=$u;
432: if ((s/υσψ$/τισψ/) && (m/[ϊσ]τισψ$/))
433: { ($fl,$id)=getflag($dbh,$_);
434: if ($fl && ($fl=~m/M/)){push @list, $id}}
435: $_=$u;
436: if ((s/εν$/τι/) && (m/[ϊσ]τι$/))
437: { ($fl,$id)=getflag($dbh,$_);
438: if ($fl && ($fl=~m/M/)){push @list, $id}}
439: $_=$u;
440: if ((s/ενσρ$/τισψ/) && (m/[ϊσ]τισψ$/))
441: { ($fl,$id)=getflag($dbh,$_);
442: if ($fl && ($fl=~m/M/)){push @list, $id}}
443: $_=$u;
444: if ((s/εϋψ$/τι/) && (m/[ϊσ]τι$/))
445: { ($fl,$id)=getflag($dbh,$_);
446: if ($fl && ($fl=~m/M/)){push @list, $id}}
447: $_=$u;
448: if ((s/εϋψσρ$/τισψ/) && (m/[ϊσ]τισψ$/))
449: { ($fl,$id)=getflag($dbh,$_);
450: if ($fl && ($fl=~m/M/)){push @list, $id}}
451: $_=$u;
452: if ((s/ετε$/τι/) && (m/[ϊσ]τι$/))
453: { ($fl,$id)=getflag($dbh,$_);
454: if ($fl && ($fl=~m/M/)){push @list, $id}}
455: $_=$u;
456: if ((s/ετεσψ$/τισψ/) && (m/[ϊσ]τισψ$/))
457: { ($fl,$id)=getflag($dbh,$_);
458: if ($fl && ($fl=~m/M/)){push @list, $id}}
459: $_=$u;
460: if ((s/ετ$/τι/) && (m/[ϊσ]τι$/))
461: { ($fl,$id)=getflag($dbh,$_);
462: if ($fl && ($fl=~m/M/)){push @list, $id}}
463: $_=$u;
464: if ((s/ετσρ$/τισψ/) && (m/[ϊσ]τισψ$/))
465: { ($fl,$id)=getflag($dbh,$_);
466: if ($fl && ($fl=~m/M/)){push @list, $id}}
467: $_=$u;
468: if ((s/υτ$/τι/) && (m/[ϊσ]τι$/))
469: { ($fl,$id)=getflag($dbh,$_);
470: if ($fl && ($fl=~m/M/)){push @list, $id}}
471: $_=$u;
472: if ((s/υτσρ$/τισψ/) && (m/[ϊσ]τισψ$/))
473: { ($fl,$id)=getflag($dbh,$_);
474: if ($fl && ($fl=~m/M/)){push @list, $id}}
475: $_=$u;
476: if ((s/δυ$/τι/) && (m/κτι$/))
477: { ($fl,$id)=getflag($dbh,$_);
478: if ($fl && ($fl=~m/M/)){push @list, $id}}
479: $_=$u;
480: if ((s/δυσψ$/τισψ/) && (m/κτισψ$/))
481: { ($fl,$id)=getflag($dbh,$_);
482: if ($fl && ($fl=~m/M/)){push @list, $id}}
483: $_=$u;
484: if ((s/δεν$/τι/) && (m/κτι$/))
485: { ($fl,$id)=getflag($dbh,$_);
486: if ($fl && ($fl=~m/M/)){push @list, $id}}
487: $_=$u;
488: if ((s/δενσρ$/τισψ/) && (m/κτισψ$/))
489: { ($fl,$id)=getflag($dbh,$_);
490: if ($fl && ($fl=~m/M/)){push @list, $id}}
491: $_=$u;
492: if ((s/δεϋψ$/τι/) && (m/κτι$/))
493: { ($fl,$id)=getflag($dbh,$_);
494: if ($fl && ($fl=~m/M/)){push @list, $id}}
495: $_=$u;
496: if ((s/δεϋψσρ$/τισψ/) && (m/κτισψ$/))
497: { ($fl,$id)=getflag($dbh,$_);
498: if ($fl && ($fl=~m/M/)){push @list, $id}}
499: $_=$u;
500: if ((s/δετε$/τι/) && (m/κτι$/))
501: { ($fl,$id)=getflag($dbh,$_);
502: if ($fl && ($fl=~m/M/)){push @list, $id}}
503: $_=$u;
504: if ((s/δετεσψ$/τισψ/) && (m/κτισψ$/))
505: { ($fl,$id)=getflag($dbh,$_);
506: if ($fl && ($fl=~m/M/)){push @list, $id}}
507: $_=$u;
508: if ((s/δετ$/τι/) && (m/κτι$/))
509: { ($fl,$id)=getflag($dbh,$_);
510: if ($fl && ($fl=~m/M/)){push @list, $id}}
511: $_=$u;
512: if ((s/δετσρ$/τισψ/) && (m/κτισψ$/))
513: { ($fl,$id)=getflag($dbh,$_);
514: if ($fl && ($fl=~m/M/)){push @list, $id}}
515: $_=$u;
516: if ((s/δυτ$/τι/) && (m/κτι$/))
517: { ($fl,$id)=getflag($dbh,$_);
518: if ($fl && ($fl=~m/M/)){push @list, $id}}
519: $_=$u;
520: if ((s/δυτσρ$/τισψ/) && (m/κτισψ$/))
521: { ($fl,$id)=getflag($dbh,$_);
522: if ($fl && ($fl=~m/M/)){push @list, $id}}
523: $_=$u;
524: if ((s/λυ$/ώψ/) && (m/ώψ$/))
525: { ($fl,$id)=getflag($dbh,$_);
526: if ($fl && ($fl=~m/M/)){push @list, $id}}
527: $_=$u;
528: if ((s/λυσψ$/ώψσρ/) && (m/ώψσρ$/))
529: { ($fl,$id)=getflag($dbh,$_);
530: if ($fl && ($fl=~m/M/)){push @list, $id}}
531: $_=$u;
532: if ((s/εν$/ψ/) && (m/ώψ$/))
533: { ($fl,$id)=getflag($dbh,$_);
534: if ($fl && ($fl=~m/M/)){push @list, $id}}
535: $_=$u;
536: if ((s/ενσρ$/ψσρ/) && (m/ώψσρ$/))
537: { ($fl,$id)=getflag($dbh,$_);
538: if ($fl && ($fl=~m/M/)){push @list, $id}}
539: $_=$u;
540: if ((s/εϋψ$/ψ/) && (m/ώψ$/))
541: { ($fl,$id)=getflag($dbh,$_);
542: if ($fl && ($fl=~m/M/)){push @list, $id}}
543: $_=$u;
544: if ((s/εϋψσρ$/ψσρ/) && (m/ώψσρ$/))
545: { ($fl,$id)=getflag($dbh,$_);
546: if ($fl && ($fl=~m/M/)){push @list, $id}}
547: $_=$u;
548: if ((s/ετε$/ψ/) && (m/ώψ$/))
549: { ($fl,$id)=getflag($dbh,$_);
550: if ($fl && ($fl=~m/M/)){push @list, $id}}
551: $_=$u;
552: if ((s/ετεσψ$/ψσρ/) && (m/ώψσρ$/))
553: { ($fl,$id)=getflag($dbh,$_);
554: if ($fl && ($fl=~m/M/)){push @list, $id}}
555: $_=$u;
556: if ((s/ετ$/ψ/) && (m/ώψ$/))
557: { ($fl,$id)=getflag($dbh,$_);
558: if ($fl && ($fl=~m/M/)){push @list, $id}}
559: $_=$u;
560: if ((s/ετσρ$/ψσρ/) && (m/ώψσρ$/))
561: { ($fl,$id)=getflag($dbh,$_);
562: if ($fl && ($fl=~m/M/)){push @list, $id}}
563: $_=$u;
564: if ((s/λυτ$/ώψ/) && (m/ώψ$/))
565: { ($fl,$id)=getflag($dbh,$_);
566: if ($fl && ($fl=~m/M/)){push @list, $id}}
567: $_=$u;
568: if ((s/λυτσρ$/ώψσρ/) && (m/ώψσρ$/))
569: { ($fl,$id)=getflag($dbh,$_);
570: if ($fl && ($fl=~m/M/)){push @list, $id}}
571: $_=$u;
572: if ((s/ΰ$/χατψ/) && (m/αχατψ$/))
573: { ($fl,$id)=getflag($dbh,$_);
574: if ($fl && ($fl=~m/U/)){push @list, $id}}
575: $_=$u;
576: if ((s/εν$/χατψ/) && (m/αχατψ$/))
577: { ($fl,$id)=getflag($dbh,$_);
578: if ($fl && ($fl=~m/U/)){push @list, $id}}
579: $_=$u;
580: if ((s/εϋψ$/χατψ/) && (m/αχατψ$/))
581: { ($fl,$id)=getflag($dbh,$_);
582: if ($fl && ($fl=~m/U/)){push @list, $id}}
583: $_=$u;
584: if ((s/ετε$/χατψ/) && (m/αχατψ$/))
585: { ($fl,$id)=getflag($dbh,$_);
586: if ($fl && ($fl=~m/U/)){push @list, $id}}
587: $_=$u;
588: if ((s/ετ$/χατψ/) && (m/αχατψ$/))
589: { ($fl,$id)=getflag($dbh,$_);
590: if ($fl && ($fl=~m/U/)){push @list, $id}}
591: $_=$u;
592: if ((s/ΰτ$/χατψ/) && (m/αχατψ$/))
593: { ($fl,$id)=getflag($dbh,$_);
594: if ($fl && ($fl=~m/U/)){push @list, $id}}
595: $_=$u;
596: if ((s/ΰσψ$/χατψσρ/) && (m/αχατψσρ$/))
597: { ($fl,$id)=getflag($dbh,$_);
598: if ($fl && ($fl=~m/U/)){push @list, $id}}
599: $_=$u;
600: if ((s/ενσρ$/χατψσρ/) && (m/αχατψσρ$/))
601: { ($fl,$id)=getflag($dbh,$_);
602: if ($fl && ($fl=~m/U/)){push @list, $id}}
603: $_=$u;
604: if ((s/εϋψσρ$/χατψσρ/) && (m/αχατψσρ$/))
605: { ($fl,$id)=getflag($dbh,$_);
606: if ($fl && ($fl=~m/U/)){push @list, $id}}
607: $_=$u;
608: if ((s/ετεσψ$/χατψσρ/) && (m/αχατψσρ$/))
609: { ($fl,$id)=getflag($dbh,$_);
610: if ($fl && ($fl=~m/U/)){push @list, $id}}
611: $_=$u;
612: if ((s/ετσρ$/χατψσρ/) && (m/αχατψσρ$/))
613: { ($fl,$id)=getflag($dbh,$_);
614: if ($fl && ($fl=~m/U/)){push @list, $id}}
615: $_=$u;
616: if ((s/ΰτσρ$/χατψσρ/) && (m/αχατψσρ$/))
617: { ($fl,$id)=getflag($dbh,$_);
618: if ($fl && ($fl=~m/U/)){push @list, $id}}
619: $_=$u;
620: if ((s/υΰ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
621: { ($fl,$id)=getflag($dbh,$_);
622: if ($fl && ($fl=~m/U/)){push @list, $id}}
623: $_=$u;
624: if ((s/υεν$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
625: { ($fl,$id)=getflag($dbh,$_);
626: if ($fl && ($fl=~m/U/)){push @list, $id}}
627: $_=$u;
628: if ((s/υεϋψ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
629: { ($fl,$id)=getflag($dbh,$_);
630: if ($fl && ($fl=~m/U/)){push @list, $id}}
631: $_=$u;
632: if ((s/υετε$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
633: { ($fl,$id)=getflag($dbh,$_);
634: if ($fl && ($fl=~m/U/)){push @list, $id}}
635: $_=$u;
636: if ((s/υετ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
637: { ($fl,$id)=getflag($dbh,$_);
638: if ($fl && ($fl=~m/U/)){push @list, $id}}
639: $_=$u;
640: if ((s/υΰτ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
641: { ($fl,$id)=getflag($dbh,$_);
642: if ($fl && ($fl=~m/U/)){push @list, $id}}
643: $_=$u;
644: if ((s/υΰσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
645: { ($fl,$id)=getflag($dbh,$_);
646: if ($fl && ($fl=~m/U/)){push @list, $id}}
647: $_=$u;
648: if ((s/υενσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
649: { ($fl,$id)=getflag($dbh,$_);
650: if ($fl && ($fl=~m/U/)){push @list, $id}}
651: $_=$u;
652: if ((s/υεϋψσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
653: { ($fl,$id)=getflag($dbh,$_);
654: if ($fl && ($fl=~m/U/)){push @list, $id}}
655: $_=$u;
656: if ((s/υετεσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
657: { ($fl,$id)=getflag($dbh,$_);
658: if ($fl && ($fl=~m/U/)){push @list, $id}}
659: $_=$u;
660: if ((s/υετσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
661: { ($fl,$id)=getflag($dbh,$_);
662: if ($fl && ($fl=~m/U/)){push @list, $id}}
663: $_=$u;
664: if ((s/υΰτσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
665: { ($fl,$id)=getflag($dbh,$_);
666: if ($fl && ($fl=~m/U/)){push @list, $id}}
667: $_=$u;
668: if ((s/ΰΰ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
669: { ($fl,$id)=getflag($dbh,$_);
670: if ($fl && ($fl=~m/U/)){push @list, $id}}
671: $_=$u;
672: if ((s/ΰεν$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
673: { ($fl,$id)=getflag($dbh,$_);
674: if ($fl && ($fl=~m/U/)){push @list, $id}}
675: $_=$u;
676: if ((s/ΰεϋψ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
677: { ($fl,$id)=getflag($dbh,$_);
678: if ($fl && ($fl=~m/U/)){push @list, $id}}
679: $_=$u;
680: if ((s/ΰετε$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
681: { ($fl,$id)=getflag($dbh,$_);
682: if ($fl && ($fl=~m/U/)){push @list, $id}}
683: $_=$u;
684: if ((s/ΰετ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
685: { ($fl,$id)=getflag($dbh,$_);
686: if ($fl && ($fl=~m/U/)){push @list, $id}}
687: $_=$u;
688: if ((s/ΰΰτ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
689: { ($fl,$id)=getflag($dbh,$_);
690: if ($fl && ($fl=~m/U/)){push @list, $id}}
691: $_=$u;
692: if ((s/ΰΰσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
693: { ($fl,$id)=getflag($dbh,$_);
694: if ($fl && ($fl=~m/U/)){push @list, $id}}
695: $_=$u;
696: if ((s/ΰενσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
697: { ($fl,$id)=getflag($dbh,$_);
698: if ($fl && ($fl=~m/U/)){push @list, $id}}
699: $_=$u;
700: if ((s/ΰεϋψσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
701: { ($fl,$id)=getflag($dbh,$_);
702: if ($fl && ($fl=~m/U/)){push @list, $id}}
703: $_=$u;
704: if ((s/ΰετεσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
705: { ($fl,$id)=getflag($dbh,$_);
706: if ($fl && ($fl=~m/U/)){push @list, $id}}
707: $_=$u;
708: if ((s/ΰετσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
709: { ($fl,$id)=getflag($dbh,$_);
710: if ($fl && ($fl=~m/U/)){push @list, $id}}
711: $_=$u;
712: if ((s/ΰΰτσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
713: { ($fl,$id)=getflag($dbh,$_);
714: if ($fl && ($fl=~m/U/)){push @list, $id}}
715: $_=$u;
716: if ((s/υΰ$/οχατψ/) && (m/οχατψ$/))
717: { ($fl,$id)=getflag($dbh,$_);
718: if ($fl && ($fl=~m/U/)){push @list, $id}}
719: $_=$u;
720: if ((s/υεν$/οχατψ/) && (m/οχατψ$/))
721: { ($fl,$id)=getflag($dbh,$_);
722: if ($fl && ($fl=~m/U/)){push @list, $id}}
723: $_=$u;
724: if ((s/υεϋψ$/οχατψ/) && (m/οχατψ$/))
725: { ($fl,$id)=getflag($dbh,$_);
726: if ($fl && ($fl=~m/U/)){push @list, $id}}
727: $_=$u;
728: if ((s/υετε$/οχατψ/) && (m/οχατψ$/))
729: { ($fl,$id)=getflag($dbh,$_);
730: if ($fl && ($fl=~m/U/)){push @list, $id}}
731: $_=$u;
732: if ((s/υετ$/οχατψ/) && (m/οχατψ$/))
733: { ($fl,$id)=getflag($dbh,$_);
734: if ($fl && ($fl=~m/U/)){push @list, $id}}
735: $_=$u;
736: if ((s/υΰτ$/οχατψ/) && (m/οχατψ$/))
737: { ($fl,$id)=getflag($dbh,$_);
738: if ($fl && ($fl=~m/U/)){push @list, $id}}
739: $_=$u;
740: if ((s/υΰσψ$/οχατψσρ/) && (m/οχατψσρ$/))
741: { ($fl,$id)=getflag($dbh,$_);
742: if ($fl && ($fl=~m/U/)){push @list, $id}}
743: $_=$u;
744: if ((s/υενσρ$/οχατψσρ/) && (m/οχατψσρ$/))
745: { ($fl,$id)=getflag($dbh,$_);
746: if ($fl && ($fl=~m/U/)){push @list, $id}}
747: $_=$u;
748: if ((s/υεϋψσρ$/οχατψσρ/) && (m/οχατψσρ$/))
749: { ($fl,$id)=getflag($dbh,$_);
750: if ($fl && ($fl=~m/U/)){push @list, $id}}
751: $_=$u;
752: if ((s/υετεσψ$/οχατψσρ/) && (m/οχατψσρ$/))
753: { ($fl,$id)=getflag($dbh,$_);
754: if ($fl && ($fl=~m/U/)){push @list, $id}}
755: $_=$u;
756: if ((s/υετσρ$/οχατψσρ/) && (m/οχατψσρ$/))
757: { ($fl,$id)=getflag($dbh,$_);
758: if ($fl && ($fl=~m/U/)){push @list, $id}}
759: $_=$u;
760: if ((s/υΰτσρ$/οχατψσρ/) && (m/οχατψσρ$/))
761: { ($fl,$id)=getflag($dbh,$_);
762: if ($fl && ($fl=~m/U/)){push @list, $id}}
763: $_=$u;
764: if ((s/ΰ$/τψ/) && (m/[^αεου]ρτψ$/))
765: { ($fl,$id)=getflag($dbh,$_);
766: if ($fl && ($fl=~m/U/)){push @list, $id}}
767: $_=$u;
768: if ((s/ΰ$/ρτψ/) && (m/[αεου]ρτψ$/))
769: { ($fl,$id)=getflag($dbh,$_);
770: if ($fl && ($fl=~m/U/)){push @list, $id}}
771: $_=$u;
772: if ((s/εν$/τψ/) && (m/[^αεου]ρτψ$/))
773: { ($fl,$id)=getflag($dbh,$_);
774: if ($fl && ($fl=~m/U/)){push @list, $id}}
775: $_=$u;
776: if ((s/εν$/ρτψ/) && (m/[αευ]ρτψ$/))
777: { ($fl,$id)=getflag($dbh,$_);
778: if ($fl && ($fl=~m/U/)){push @list, $id}}
779: $_=$u;
780: if ((s/ιν$/ρτψ/) && (m/ορτψ$/))
781: { ($fl,$id)=getflag($dbh,$_);
782: if ($fl && ($fl=~m/U/)){push @list, $id}}
783: $_=$u;
784: if ((s/εϋψ$/τψ/) && (m/[^αεου]ρτψ$/))
785: { ($fl,$id)=getflag($dbh,$_);
786: if ($fl && ($fl=~m/U/)){push @list, $id}}
787: $_=$u;
788: if ((s/εϋψ$/ρτψ/) && (m/[αευ]ρτψ$/))
789: { ($fl,$id)=getflag($dbh,$_);
790: if ($fl && ($fl=~m/U/)){push @list, $id}}
791: $_=$u;
792: if ((s/ιϋψ$/ρτψ/) && (m/ορτψ$/))
793: { ($fl,$id)=getflag($dbh,$_);
794: if ($fl && ($fl=~m/U/)){push @list, $id}}
795: $_=$u;
796: if ((s/ετε$/τψ/) && (m/[^αεου]ρτψ$/))
797: { ($fl,$id)=getflag($dbh,$_);
798: if ($fl && ($fl=~m/U/)){push @list, $id}}
799: $_=$u;
800: if ((s/ετε$/ρτψ/) && (m/[αευ]ρτψ$/))
801: { ($fl,$id)=getflag($dbh,$_);
802: if ($fl && ($fl=~m/U/)){push @list, $id}}
803: $_=$u;
804: if ((s/ιτε$/ρτψ/) && (m/ορτψ$/))
805: { ($fl,$id)=getflag($dbh,$_);
806: if ($fl && ($fl=~m/U/)){push @list, $id}}
807: $_=$u;
808: if ((s/ετ$/τψ/) && (m/[^αεου]ρτψ$/))
809: { ($fl,$id)=getflag($dbh,$_);
810: if ($fl && ($fl=~m/U/)){push @list, $id}}
811: $_=$u;
812: if ((s/ετ$/ρτψ/) && (m/[αευ]ρτψ$/))
813: { ($fl,$id)=getflag($dbh,$_);
814: if ($fl && ($fl=~m/U/)){push @list, $id}}
815: $_=$u;
816: if ((s/ιτ$/ρτψ/) && (m/ορτψ$/))
817: { ($fl,$id)=getflag($dbh,$_);
818: if ($fl && ($fl=~m/U/)){push @list, $id}}
819: $_=$u;
820: if ((s/ΰτ$/τψ/) && (m/[^αεου]ρτψ$/))
821: { ($fl,$id)=getflag($dbh,$_);
822: if ($fl && ($fl=~m/U/)){push @list, $id}}
823: $_=$u;
824: if ((s/ΰτ$/ρτψ/) && (m/[αευ]ρτψ$/))
825: { ($fl,$id)=getflag($dbh,$_);
826: if ($fl && ($fl=~m/U/)){push @list, $id}}
827: $_=$u;
828: if ((s/$/ψ/) && (m/ορτψ$/))
829: { ($fl,$id)=getflag($dbh,$_);
830: if ($fl && ($fl=~m/U/)){push @list, $id}}
831: $_=$u;
832: if ((s/ΰσψ$/τψσρ/) && (m/[^αεου]ρτψσρ$/))
833: { ($fl,$id)=getflag($dbh,$_);
834: if ($fl && ($fl=~m/U/)){push @list, $id}}
835: $_=$u;
836: if ((s/ΰσψ$/ρτψσρ/) && (m/[αεου]ρτψσρ$/))
837: { ($fl,$id)=getflag($dbh,$_);
838: if ($fl && ($fl=~m/U/)){push @list, $id}}
839: $_=$u;
840: if ((s/ενσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/))
841: { ($fl,$id)=getflag($dbh,$_);
842: if ($fl && ($fl=~m/U/)){push @list, $id}}
843: $_=$u;
844: if ((s/ενσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/))
845: { ($fl,$id)=getflag($dbh,$_);
846: if ($fl && ($fl=~m/U/)){push @list, $id}}
847: $_=$u;
848: if ((s/ινσρ$/ρτψσρ/) && (m/ορτψσρ$/))
849: { ($fl,$id)=getflag($dbh,$_);
850: if ($fl && ($fl=~m/U/)){push @list, $id}}
851: $_=$u;
852: if ((s/εϋψσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/))
853: { ($fl,$id)=getflag($dbh,$_);
854: if ($fl && ($fl=~m/U/)){push @list, $id}}
855: $_=$u;
856: if ((s/εϋψσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/))
857: { ($fl,$id)=getflag($dbh,$_);
858: if ($fl && ($fl=~m/U/)){push @list, $id}}
859: $_=$u;
860: if ((s/ιϋψσρ$/ρτψσρ/) && (m/ορτψσρ$/))
861: { ($fl,$id)=getflag($dbh,$_);
862: if ($fl && ($fl=~m/U/)){push @list, $id}}
863: $_=$u;
864: if ((s/ετεσψ$/τψσρ/) && (m/[^αεου]ρτψσρ$/))
865: { ($fl,$id)=getflag($dbh,$_);
866: if ($fl && ($fl=~m/U/)){push @list, $id}}
867: $_=$u;
868: if ((s/ετεσψ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/))
869: { ($fl,$id)=getflag($dbh,$_);
870: if ($fl && ($fl=~m/U/)){push @list, $id}}
871: $_=$u;
872: if ((s/ιτεσψ$/ρτψσρ/) && (m/ορτψσρ$/))
873: { ($fl,$id)=getflag($dbh,$_);
874: if ($fl && ($fl=~m/U/)){push @list, $id}}
875: $_=$u;
876: if ((s/ετσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/))
877: { ($fl,$id)=getflag($dbh,$_);
878: if ($fl && ($fl=~m/U/)){push @list, $id}}
879: $_=$u;
880: if ((s/ετσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/))
881: { ($fl,$id)=getflag($dbh,$_);
882: if ($fl && ($fl=~m/U/)){push @list, $id}}
883: $_=$u;
884: if ((s/ιτσρ$/ρτψσρ/) && (m/ορτψσρ$/))
885: { ($fl,$id)=getflag($dbh,$_);
886: if ($fl && ($fl=~m/U/)){push @list, $id}}
887: $_=$u;
888: if ((s/ΰτσρ$/τψσρ/) && (m/[^αεου]ρτψσρ$/))
889: { ($fl,$id)=getflag($dbh,$_);
890: if ($fl && ($fl=~m/U/)){push @list, $id}}
891: $_=$u;
892: if ((s/ΰτσρ$/ρτψσρ/) && (m/[αευ]ρτψσρ$/))
893: { ($fl,$id)=getflag($dbh,$_);
894: if ($fl && ($fl=~m/U/)){push @list, $id}}
895: $_=$u;
896: if ((s/σρ$/ψσρ/) && (m/ορτψσρ$/))
897: { ($fl,$id)=getflag($dbh,$_);
898: if ($fl && ($fl=~m/U/)){push @list, $id}}
899: $_=$u;
900: if ((s/υ$/ατψ/) && (m/[φϋύώ]ατψ$/))
901: { ($fl,$id)=getflag($dbh,$_);
902: if ($fl && ($fl=~m/U/)){push @list, $id}}
903: $_=$u;
904: if ((s/υσψ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/))
905: { ($fl,$id)=getflag($dbh,$_);
906: if ($fl && ($fl=~m/U/)){push @list, $id}}
907: $_=$u;
908: if ((s/ιν$/ατψ/) && (m/[φϋύώ]ατψ$/))
909: { ($fl,$id)=getflag($dbh,$_);
910: if ($fl && ($fl=~m/U/)){push @list, $id}}
911: $_=$u;
912: if ((s/ινσρ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/))
913: { ($fl,$id)=getflag($dbh,$_);
914: if ($fl && ($fl=~m/U/)){push @list, $id}}
915: $_=$u;
916: if ((s/ιϋψ$/ατψ/) && (m/[φϋύώ]ατψ$/))
917: { ($fl,$id)=getflag($dbh,$_);
918: if ($fl && ($fl=~m/U/)){push @list, $id}}
919: $_=$u;
920: if ((s/ιϋψσρ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/))
921: { ($fl,$id)=getflag($dbh,$_);
922: if ($fl && ($fl=~m/U/)){push @list, $id}}
923: $_=$u;
924: if ((s/ιτε$/ατψ/) && (m/[φϋύώ]ατψ$/))
925: { ($fl,$id)=getflag($dbh,$_);
926: if ($fl && ($fl=~m/U/)){push @list, $id}}
927: $_=$u;
928: if ((s/ιτεσψ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/))
929: { ($fl,$id)=getflag($dbh,$_);
930: if ($fl && ($fl=~m/U/)){push @list, $id}}
931: $_=$u;
932: if ((s/ιτ$/ατψ/) && (m/[φϋύώ]ατψ$/))
933: { ($fl,$id)=getflag($dbh,$_);
934: if ($fl && ($fl=~m/U/)){push @list, $id}}
935: $_=$u;
936: if ((s/ιτσρ$/ατψσρ/) && (m/[φϋύώ]ατψσρ$/))
937: { ($fl,$id)=getflag($dbh,$_);
938: if ($fl && ($fl=~m/U/)){push @list, $id}}
939: $_=$u;
940: if ((s/$/ψ/) && (m/[φϋύώ]ατψ$/))
941: { ($fl,$id)=getflag($dbh,$_);
942: if ($fl && ($fl=~m/U/)){push @list, $id}}
943: $_=$u;
944: if ((s/σρ$/ψσρ/) && (m/[φϋύώ]ατψσρ$/))
945: { ($fl,$id)=getflag($dbh,$_);
946: if ($fl && ($fl=~m/U/)){push @list, $id}}
947: $_=$u;
948: if ((s/υ$/ατψ/) && (m/δατψ$/))
949: { ($fl,$id)=getflag($dbh,$_);
950: if ($fl && ($fl=~m/U/)){push @list, $id}}
951: $_=$u;
952: if ((s/υσψ$/ατψσρ/) && (m/δατψσρ$/))
953: { ($fl,$id)=getflag($dbh,$_);
954: if ($fl && ($fl=~m/U/)){push @list, $id}}
955: $_=$u;
956: if ((s/εν$/ατψ/) && (m/δατψ$/))
957: { ($fl,$id)=getflag($dbh,$_);
958: if ($fl && ($fl=~m/U/)){push @list, $id}}
959: $_=$u;
960: if ((s/ενσρ$/ατψσρ/) && (m/δατψσρ$/))
961: { ($fl,$id)=getflag($dbh,$_);
962: if ($fl && ($fl=~m/U/)){push @list, $id}}
963: $_=$u;
964: if ((s/εϋψ$/ατψ/) && (m/δατψ$/))
965: { ($fl,$id)=getflag($dbh,$_);
966: if ($fl && ($fl=~m/U/)){push @list, $id}}
967: $_=$u;
968: if ((s/εϋψσρ$/ατψσρ/) && (m/δατψσρ$/))
969: { ($fl,$id)=getflag($dbh,$_);
970: if ($fl && ($fl=~m/U/)){push @list, $id}}
971: $_=$u;
972: if ((s/ετε$/ατψ/) && (m/δατψ$/))
973: { ($fl,$id)=getflag($dbh,$_);
974: if ($fl && ($fl=~m/U/)){push @list, $id}}
975: $_=$u;
976: if ((s/ετεσψ$/ατψσρ/) && (m/δατψσρ$/))
977: { ($fl,$id)=getflag($dbh,$_);
978: if ($fl && ($fl=~m/U/)){push @list, $id}}
979: $_=$u;
980: if ((s/ετ$/ατψ/) && (m/δατψ$/))
981: { ($fl,$id)=getflag($dbh,$_);
982: if ($fl && ($fl=~m/U/)){push @list, $id}}
983: $_=$u;
984: if ((s/ετσρ$/ατψσρ/) && (m/δατψσρ$/))
985: { ($fl,$id)=getflag($dbh,$_);
986: if ($fl && ($fl=~m/U/)){push @list, $id}}
987: $_=$u;
988: if ((s/υτ$/ατψ/) && (m/δατψ$/))
989: { ($fl,$id)=getflag($dbh,$_);
990: if ($fl && ($fl=~m/U/)){push @list, $id}}
991: $_=$u;
992: if ((s/υτσρ$/ατψσρ/) && (m/δατψσρ$/))
993: { ($fl,$id)=getflag($dbh,$_);
994: if ($fl && ($fl=~m/U/)){push @list, $id}}
995: $_=$u;
996: if ((s/ηυ$/ώψ/) && (m/ώψ$/))
997: { ($fl,$id)=getflag($dbh,$_);
998: if ($fl && ($fl=~m/U/)){push @list, $id}}
999: $_=$u;
1000: if ((s/ηυσψ$/ώψσρ/) && (m/ώψσρ$/))
1001: { ($fl,$id)=getflag($dbh,$_);
1002: if ($fl && ($fl=~m/U/)){push @list, $id}}
1003: $_=$u;
1004: if ((s/φεν$/ώψ/) && (m/ώψ$/))
1005: { ($fl,$id)=getflag($dbh,$_);
1006: if ($fl && ($fl=~m/U/)){push @list, $id}}
1007: $_=$u;
1008: if ((s/φενσρ$/ώψσρ/) && (m/ώψσρ$/))
1009: { ($fl,$id)=getflag($dbh,$_);
1010: if ($fl && ($fl=~m/U/)){push @list, $id}}
1011: $_=$u;
1012: if ((s/φεϋψ$/ώψ/) && (m/ώψ$/))
1013: { ($fl,$id)=getflag($dbh,$_);
1014: if ($fl && ($fl=~m/U/)){push @list, $id}}
1015: $_=$u;
1016: if ((s/φεϋψσρ$/ώψσρ/) && (m/ώψσρ$/))
1017: { ($fl,$id)=getflag($dbh,$_);
1018: if ($fl && ($fl=~m/U/)){push @list, $id}}
1019: $_=$u;
1020: if ((s/φετε$/ώψ/) && (m/ώψ$/))
1021: { ($fl,$id)=getflag($dbh,$_);
1022: if ($fl && ($fl=~m/U/)){push @list, $id}}
1023: $_=$u;
1024: if ((s/φετεσψ$/ώψσρ/) && (m/ώψσρ$/))
1025: { ($fl,$id)=getflag($dbh,$_);
1026: if ($fl && ($fl=~m/U/)){push @list, $id}}
1027: $_=$u;
1028: if ((s/φετ$/ώψ/) && (m/ώψ$/))
1029: { ($fl,$id)=getflag($dbh,$_);
1030: if ($fl && ($fl=~m/U/)){push @list, $id}}
1031: $_=$u;
1032: if ((s/φετσρ$/ώψσρ/) && (m/ώψσρ$/))
1033: { ($fl,$id)=getflag($dbh,$_);
1034: if ($fl && ($fl=~m/U/)){push @list, $id}}
1035: $_=$u;
1036: if ((s/ηυτ$/ώψ/) && (m/ώψ$/))
1037: { ($fl,$id)=getflag($dbh,$_);
1038: if ($fl && ($fl=~m/U/)){push @list, $id}}
1039: $_=$u;
1040: if ((s/ηυτσρ$/ώψσρ/) && (m/ώψσρ$/))
1041: { ($fl,$id)=getflag($dbh,$_);
1042: if ($fl && ($fl=~m/U/)){push @list, $id}}
1043: $_=$u;
1044: if ((s/$/τψ/) && (m/υτψ$/))
1045: { ($fl,$id)=getflag($dbh,$_);
1046: if ($fl && ($fl=~m/U/)){push @list, $id}}
1047: $_=$u;
1048: if ((s/σψ$/τψσρ/) && (m/υτψσρ$/))
1049: { ($fl,$id)=getflag($dbh,$_);
1050: if ($fl && ($fl=~m/U/)){push @list, $id}}
1051: $_=$u;
1052: if ((s/εν$/υτψ/) && (m/υτψ$/))
1053: { ($fl,$id)=getflag($dbh,$_);
1054: if ($fl && ($fl=~m/U/)){push @list, $id}}
1055: $_=$u;
1056: if ((s/ενσρ$/υτψσρ/) && (m/υτψσρ$/))
1057: { ($fl,$id)=getflag($dbh,$_);
1058: if ($fl && ($fl=~m/U/)){push @list, $id}}
1059: $_=$u;
1060: if ((s/εϋψ$/υτψ/) && (m/υτψ$/))
1061: { ($fl,$id)=getflag($dbh,$_);
1062: if ($fl && ($fl=~m/U/)){push @list, $id}}
1063: $_=$u;
1064: if ((s/εϋψσρ$/υτψσρ/) && (m/υτψσρ$/))
1065: { ($fl,$id)=getflag($dbh,$_);
1066: if ($fl && ($fl=~m/U/)){push @list, $id}}
1067: $_=$u;
1068: if ((s/ετε$/υτψ/) && (m/υτψ$/))
1069: { ($fl,$id)=getflag($dbh,$_);
1070: if ($fl && ($fl=~m/U/)){push @list, $id}}
1071: $_=$u;
1072: if ((s/ετεσψ$/υτψσρ/) && (m/υτψσρ$/))
1073: { ($fl,$id)=getflag($dbh,$_);
1074: if ($fl && ($fl=~m/U/)){push @list, $id}}
1075: $_=$u;
1076: if ((s/ετ$/υτψ/) && (m/υτψ$/))
1077: { ($fl,$id)=getflag($dbh,$_);
1078: if ($fl && ($fl=~m/U/)){push @list, $id}}
1079: $_=$u;
1080: if ((s/ετσρ$/υτψσρ/) && (m/υτψσρ$/))
1081: { ($fl,$id)=getflag($dbh,$_);
1082: if ($fl && ($fl=~m/U/)){push @list, $id}}
1083: $_=$u;
1084: if ((s/$/ψ/) && (m/υτψ$/))
1085: { ($fl,$id)=getflag($dbh,$_);
1086: if ($fl && ($fl=~m/U/)){push @list, $id}}
1087: $_=$u;
1088: if ((s/σρ$/ψσρ/) && (m/υτψσρ$/))
1089: { ($fl,$id)=getflag($dbh,$_);
1090: if ($fl && ($fl=~m/U/)){push @list, $id}}
1091: $_=$u;
1092: if ((s/μΰ$/ιτψ/) && (m/[βχνπζ]ιτψ$/))
1093: { ($fl,$id)=getflag($dbh,$_);
1094: if ($fl && ($fl=~m/W/)){push @list, $id}}
1095: $_=$u;
1096: if ((s/μΰσψ$/ιτψσρ/) && (m/[βχνπζ]ιτψσρ$/))
1097: { ($fl,$id)=getflag($dbh,$_);
1098: if ($fl && ($fl=~m/W/)){push @list, $id}}
1099: $_=$u;
1100: if ((s/φυ$/διτψ/) && (m/διτψ$/))
1101: { ($fl,$id)=getflag($dbh,$_);
1102: if ($fl && ($fl=~m/W/)){push @list, $id}}
1103: $_=$u;
1104: if ((s/φυσψ$/διτψσρ/) && (m/διτψσρ$/))
1105: { ($fl,$id)=getflag($dbh,$_);
1106: if ($fl && ($fl=~m/W/)){push @list, $id}}
1107: $_=$u;
1108: if ((s/ΰ$/ιτψ/) && (m/[αεμξοςυ]ιτψ$/))
1109: { ($fl,$id)=getflag($dbh,$_);
1110: if ($fl && ($fl=~m/W/)){push @list, $id}}
1111: $_=$u;
1112: if ((s/ΰσψ$/ιτψσρ/) && (m/[αεμξοςυ]ιτψσρ$/))
1113: { ($fl,$id)=getflag($dbh,$_);
1114: if ($fl && ($fl=~m/W/)){push @list, $id}}
1115: $_=$u;
1116: if ((s/υ$/ιτψ/) && (m/[φώϋύ]ιτψ$/))
1117: { ($fl,$id)=getflag($dbh,$_);
1118: if ($fl && ($fl=~m/W/)){push @list, $id}}
1119: $_=$u;
1120: if ((s/υσψ$/ιτψσρ/) && (m/[φώϋύ]ιτψσρ$/))
1121: { ($fl,$id)=getflag($dbh,$_);
1122: if ($fl && ($fl=~m/W/)){push @list, $id}}
1123: $_=$u;
1124: if ((s/φυ$/ϊιτψ/) && (m/ϊιτψ$/))
1125: { ($fl,$id)=getflag($dbh,$_);
1126: if ($fl && ($fl=~m/W/)){push @list, $id}}
1127: $_=$u;
1128: if ((s/φυσψ$/ϊιτψσρ/) && (m/ϊιτψσρ$/))
1129: { ($fl,$id)=getflag($dbh,$_);
1130: if ($fl && ($fl=~m/W/)){push @list, $id}}
1131: $_=$u;
1132: if ((s/ϋυ$/σιτψ/) && (m/σιτψ$/))
1133: { ($fl,$id)=getflag($dbh,$_);
1134: if ($fl && ($fl=~m/W/)){push @list, $id}}
1135: $_=$u;
1136: if ((s/ϋυσψ$/σιτψσρ/) && (m/σιτψσρ$/))
1137: { ($fl,$id)=getflag($dbh,$_);
1138: if ($fl && ($fl=~m/W/)){push @list, $id}}
1139: $_=$u;
1140: if ((s/ώυ$/τιτψ/) && (m/[^αειουωόΰρσώ]τιτψ$/))
1141: { ($fl,$id)=getflag($dbh,$_);
1142: if ($fl && ($fl=~m/W/)){push @list, $id}}
1143: $_=$u;
1144: if ((s/ύυ$/στιτψ/) && (m/στιτψ$/))
1145: { ($fl,$id)=getflag($dbh,$_);
1146: if ($fl && ($fl=~m/W/)){push @list, $id}}
1147: $_=$u;
1148: if ((s/ώυσψ$/τιτψσρ/) && (m/[^αειουωόΰρσώ]τιτψσρ$/))
1149: { ($fl,$id)=getflag($dbh,$_);
1150: if ($fl && ($fl=~m/W/)){push @list, $id}}
1151: $_=$u;
1152: if ((s/ύυσψ$/στιτψσρ/) && (m/στιτψσρ$/))
1153: { ($fl,$id)=getflag($dbh,$_);
1154: if ($fl && ($fl=~m/W/)){push @list, $id}}
1155: $_=$u;
1156: if ((s/ν$/τψ/) && (m/ιτψ$/))
1157: { ($fl,$id)=getflag($dbh,$_);
1158: if ($fl && ($fl=~m/W/)){push @list, $id}}
1159: $_=$u;
1160: if ((s/νσρ$/τψσρ/) && (m/ιτψσρ$/))
1161: { ($fl,$id)=getflag($dbh,$_);
1162: if ($fl && ($fl=~m/W/)){push @list, $id}}
1163: $_=$u;
1164: if ((s/ϋψ$/τψ/) && (m/ιτψ$/))
1165: { ($fl,$id)=getflag($dbh,$_);
1166: if ($fl && ($fl=~m/W/)){push @list, $id}}
1167: $_=$u;
1168: if ((s/ϋψσρ$/τψσρ/) && (m/ιτψσρ$/))
1169: { ($fl,$id)=getflag($dbh,$_);
1170: if ($fl && ($fl=~m/W/)){push @list, $id}}
1171: $_=$u;
1172: if ((s/ε$/ψ/) && (m/ιτψ$/))
1173: { ($fl,$id)=getflag($dbh,$_);
1174: if ($fl && ($fl=~m/W/)){push @list, $id}}
1175: $_=$u;
1176: if ((s/εσψ$/ψσρ/) && (m/ιτψσρ$/))
1177: { ($fl,$id)=getflag($dbh,$_);
1178: if ($fl && ($fl=~m/W/)){push @list, $id}}
1179: $_=$u;
1180: if ((s/$/ψ/) && (m/ιτψ$/))
1181: { ($fl,$id)=getflag($dbh,$_);
1182: if ($fl && ($fl=~m/W/)){push @list, $id}}
1183: $_=$u;
1184: if ((s/σρ$/ψσρ/) && (m/ιτψσρ$/))
1185: { ($fl,$id)=getflag($dbh,$_);
1186: if ($fl && ($fl=~m/W/)){push @list, $id}}
1187: $_=$u;
1188: if ((s/ρτ$/ιτψ/) && (m/[^φώϋύ]ιτψ$/))
1189: { ($fl,$id)=getflag($dbh,$_);
1190: if ($fl && ($fl=~m/W/)){push @list, $id}}
1191: $_=$u;
1192: if ((s/ρτσρ$/ιτψσρ/) && (m/[^φώϋύ]ιτψσρ$/))
1193: { ($fl,$id)=getflag($dbh,$_);
1194: if ($fl && ($fl=~m/W/)){push @list, $id}}
1195: $_=$u;
1196: if ((s/ατ$/ιτψ/) && (m/[φώϋύ]ιτψ$/))
1197: { ($fl,$id)=getflag($dbh,$_);
1198: if ($fl && ($fl=~m/W/)){push @list, $id}}
1199: $_=$u;
1200: if ((s/ατσρ$/ιτψσρ/) && (m/[φώϋύ]ιτψσρ$/))
1201: { ($fl,$id)=getflag($dbh,$_);
1202: if ($fl && ($fl=~m/W/)){push @list, $id}}
1203: $_=$u;
1204: if ((s/ψΰ$/ιτψ/) && (m/[βχμπ]ιτψ$/))
1205: { ($fl,$id)=getflag($dbh,$_);
1206: if ($fl && ($fl=~m/V/)){push @list, $id}}
1207: $_=$u;
1208: if ((s/ψΰσψ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/))
1209: { ($fl,$id)=getflag($dbh,$_);
1210: if ($fl && ($fl=~m/V/)){push @list, $id}}
1211: $_=$u;
1212: if ((s/ψεν$/ιτψ/) && (m/[βχμπ]ιτψ$/))
1213: { ($fl,$id)=getflag($dbh,$_);
1214: if ($fl && ($fl=~m/V/)){push @list, $id}}
1215: $_=$u;
1216: if ((s/ψενσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/))
1217: { ($fl,$id)=getflag($dbh,$_);
1218: if ($fl && ($fl=~m/V/)){push @list, $id}}
1219: $_=$u;
1220: if ((s/ψεϋψ$/ιτψ/) && (m/[βχμπ]ιτψ$/))
1221: { ($fl,$id)=getflag($dbh,$_);
1222: if ($fl && ($fl=~m/V/)){push @list, $id}}
1223: $_=$u;
1224: if ((s/ψεϋψσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/))
1225: { ($fl,$id)=getflag($dbh,$_);
1226: if ($fl && ($fl=~m/V/)){push @list, $id}}
1227: $_=$u;
1228: if ((s/ψετε$/ιτψ/) && (m/[βχμπ]ιτψ$/))
1229: { ($fl,$id)=getflag($dbh,$_);
1230: if ($fl && ($fl=~m/V/)){push @list, $id}}
1231: $_=$u;
1232: if ((s/ψετεσψ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/))
1233: { ($fl,$id)=getflag($dbh,$_);
1234: if ($fl && ($fl=~m/V/)){push @list, $id}}
1235: $_=$u;
1236: if ((s/ψετ$/ιτψ/) && (m/[βχμπ]ιτψ$/))
1237: { ($fl,$id)=getflag($dbh,$_);
1238: if ($fl && ($fl=~m/V/)){push @list, $id}}
1239: $_=$u;
1240: if ((s/ψετσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/))
1241: { ($fl,$id)=getflag($dbh,$_);
1242: if ($fl && ($fl=~m/V/)){push @list, $id}}
1243: $_=$u;
1244: if ((s/ψΰτ$/ιτψ/) && (m/[βχμπ]ιτψ$/))
1245: { ($fl,$id)=getflag($dbh,$_);
1246: if ($fl && ($fl=~m/V/)){push @list, $id}}
1247: $_=$u;
1248: if ((s/ψΰτσρ$/ιτψσρ/) && (m/[βχμπ]ιτψσρ$/))
1249: { ($fl,$id)=getflag($dbh,$_);
1250: if ($fl && ($fl=~m/V/)){push @list, $id}}
1251: $_=$u;
1252: if ((s/χυ$/τψ/) && (m/φιτψ$/))
1253: { ($fl,$id)=getflag($dbh,$_);
1254: if ($fl && ($fl=~m/V/)){push @list, $id}}
1255: $_=$u;
1256: if ((s/χυσψ$/τψσρ/) && (m/φιτψσρ$/))
1257: { ($fl,$id)=getflag($dbh,$_);
1258: if ($fl && ($fl=~m/V/)){push @list, $id}}
1259: $_=$u;
1260: if ((s/χεν$/τψ/) && (m/φιτψ$/))
1261: { ($fl,$id)=getflag($dbh,$_);
1262: if ($fl && ($fl=~m/V/)){push @list, $id}}
1263: $_=$u;
1264: if ((s/χενσρ$/τψσρ/) && (m/φιτψσρ$/))
1265: { ($fl,$id)=getflag($dbh,$_);
1266: if ($fl && ($fl=~m/V/)){push @list, $id}}
1267: $_=$u;
1268: if ((s/χεϋψ$/τψ/) && (m/φιτψ$/))
1269: { ($fl,$id)=getflag($dbh,$_);
1270: if ($fl && ($fl=~m/V/)){push @list, $id}}
1271: $_=$u;
1272: if ((s/χεϋψσρ$/τψσρ/) && (m/φιτψσρ$/))
1273: { ($fl,$id)=getflag($dbh,$_);
1274: if ($fl && ($fl=~m/V/)){push @list, $id}}
1275: $_=$u;
1276: if ((s/χετε$/τψ/) && (m/φιτψ$/))
1277: { ($fl,$id)=getflag($dbh,$_);
1278: if ($fl && ($fl=~m/V/)){push @list, $id}}
1279: $_=$u;
1280: if ((s/χετεσψ$/τψσρ/) && (m/φιτψσρ$/))
1281: { ($fl,$id)=getflag($dbh,$_);
1282: if ($fl && ($fl=~m/V/)){push @list, $id}}
1283: $_=$u;
1284: if ((s/χετ$/τψ/) && (m/φιτψ$/))
1285: { ($fl,$id)=getflag($dbh,$_);
1286: if ($fl && ($fl=~m/V/)){push @list, $id}}
1287: $_=$u;
1288: if ((s/χετσρ$/τψσρ/) && (m/φιτψσρ$/))
1289: { ($fl,$id)=getflag($dbh,$_);
1290: if ($fl && ($fl=~m/V/)){push @list, $id}}
1291: $_=$u;
1292: if ((s/χυτ$/τψ/) && (m/φιτψ$/))
1293: { ($fl,$id)=getflag($dbh,$_);
1294: if ($fl && ($fl=~m/V/)){push @list, $id}}
1295: $_=$u;
1296: if ((s/χυτσρ$/τψσρ/) && (m/φιτψσρ$/))
1297: { ($fl,$id)=getflag($dbh,$_);
1298: if ($fl && ($fl=~m/V/)){push @list, $id}}
1299: $_=$u;
1300: if ((s/υΰ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
1301: { ($fl,$id)=getflag($dbh,$_);
1302: if ($fl && ($fl=~m/V/)){push @list, $id}}
1303: $_=$u;
1304: if ((s/υεν$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
1305: { ($fl,$id)=getflag($dbh,$_);
1306: if ($fl && ($fl=~m/V/)){push @list, $id}}
1307: $_=$u;
1308: if ((s/υεϋψ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
1309: { ($fl,$id)=getflag($dbh,$_);
1310: if ($fl && ($fl=~m/V/)){push @list, $id}}
1311: $_=$u;
1312: if ((s/υετε$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
1313: { ($fl,$id)=getflag($dbh,$_);
1314: if ($fl && ($fl=~m/V/)){push @list, $id}}
1315: $_=$u;
1316: if ((s/υετ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
1317: { ($fl,$id)=getflag($dbh,$_);
1318: if ($fl && ($fl=~m/V/)){push @list, $id}}
1319: $_=$u;
1320: if ((s/υΰτ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
1321: { ($fl,$id)=getflag($dbh,$_);
1322: if ($fl && ($fl=~m/V/)){push @list, $id}}
1323: $_=$u;
1324: if ((s/υΰσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
1325: { ($fl,$id)=getflag($dbh,$_);
1326: if ($fl && ($fl=~m/V/)){push @list, $id}}
1327: $_=$u;
1328: if ((s/υετσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
1329: { ($fl,$id)=getflag($dbh,$_);
1330: if ($fl && ($fl=~m/V/)){push @list, $id}}
1331: $_=$u;
1332: if ((s/υεϋψσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
1333: { ($fl,$id)=getflag($dbh,$_);
1334: if ($fl && ($fl=~m/V/)){push @list, $id}}
1335: $_=$u;
1336: if ((s/υετεσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
1337: { ($fl,$id)=getflag($dbh,$_);
1338: if ($fl && ($fl=~m/V/)){push @list, $id}}
1339: $_=$u;
1340: if ((s/υετσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
1341: { ($fl,$id)=getflag($dbh,$_);
1342: if ($fl && ($fl=~m/V/)){push @list, $id}}
1343: $_=$u;
1344: if ((s/υΰτσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
1345: { ($fl,$id)=getflag($dbh,$_);
1346: if ($fl && ($fl=~m/V/)){push @list, $id}}
1347: $_=$u;
1348: if ((s/ΰΰ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
1349: { ($fl,$id)=getflag($dbh,$_);
1350: if ($fl && ($fl=~m/V/)){push @list, $id}}
1351: $_=$u;
1352: if ((s/ΰεν$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
1353: { ($fl,$id)=getflag($dbh,$_);
1354: if ($fl && ($fl=~m/V/)){push @list, $id}}
1355: $_=$u;
1356: if ((s/ΰεϋψ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
1357: { ($fl,$id)=getflag($dbh,$_);
1358: if ($fl && ($fl=~m/V/)){push @list, $id}}
1359: $_=$u;
1360: if ((s/ΰετε$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
1361: { ($fl,$id)=getflag($dbh,$_);
1362: if ($fl && ($fl=~m/V/)){push @list, $id}}
1363: $_=$u;
1364: if ((s/ΰετ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
1365: { ($fl,$id)=getflag($dbh,$_);
1366: if ($fl && ($fl=~m/V/)){push @list, $id}}
1367: $_=$u;
1368: if ((s/ΰΰτ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
1369: { ($fl,$id)=getflag($dbh,$_);
1370: if ($fl && ($fl=~m/V/)){push @list, $id}}
1371: $_=$u;
1372: if ((s/ΰΰσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
1373: { ($fl,$id)=getflag($dbh,$_);
1374: if ($fl && ($fl=~m/V/)){push @list, $id}}
1375: $_=$u;
1376: if ((s/ΰενσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
1377: { ($fl,$id)=getflag($dbh,$_);
1378: if ($fl && ($fl=~m/V/)){push @list, $id}}
1379: $_=$u;
1380: if ((s/ΰεϋψσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
1381: { ($fl,$id)=getflag($dbh,$_);
1382: if ($fl && ($fl=~m/V/)){push @list, $id}}
1383: $_=$u;
1384: if ((s/ΰετεσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
1385: { ($fl,$id)=getflag($dbh,$_);
1386: if ($fl && ($fl=~m/V/)){push @list, $id}}
1387: $_=$u;
1388: if ((s/ΰετσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
1389: { ($fl,$id)=getflag($dbh,$_);
1390: if ($fl && ($fl=~m/V/)){push @list, $id}}
1391: $_=$u;
1392: if ((s/ΰΰτσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
1393: { ($fl,$id)=getflag($dbh,$_);
1394: if ($fl && ($fl=~m/V/)){push @list, $id}}
1395: $_=$u;
1396: if ((s/υΰ$/οχατψ/) && (m/οχατψ$/))
1397: { ($fl,$id)=getflag($dbh,$_);
1398: if ($fl && ($fl=~m/V/)){push @list, $id}}
1399: $_=$u;
1400: if ((s/υεν$/οχατψ/) && (m/οχατψ$/))
1401: { ($fl,$id)=getflag($dbh,$_);
1402: if ($fl && ($fl=~m/V/)){push @list, $id}}
1403: $_=$u;
1404: if ((s/υεϋψ$/οχατψ/) && (m/οχατψ$/))
1405: { ($fl,$id)=getflag($dbh,$_);
1406: if ($fl && ($fl=~m/V/)){push @list, $id}}
1407: $_=$u;
1408: if ((s/υετε$/οχατψ/) && (m/οχατψ$/))
1409: { ($fl,$id)=getflag($dbh,$_);
1410: if ($fl && ($fl=~m/V/)){push @list, $id}}
1411: $_=$u;
1412: if ((s/υετ$/οχατψ/) && (m/οχατψ$/))
1413: { ($fl,$id)=getflag($dbh,$_);
1414: if ($fl && ($fl=~m/V/)){push @list, $id}}
1415: $_=$u;
1416: if ((s/υΰτ$/οχατψ/) && (m/οχατψ$/))
1417: { ($fl,$id)=getflag($dbh,$_);
1418: if ($fl && ($fl=~m/V/)){push @list, $id}}
1419: $_=$u;
1420: if ((s/υΰσψ$/οχατψσρ/) && (m/οχατψσρ$/))
1421: { ($fl,$id)=getflag($dbh,$_);
1422: if ($fl && ($fl=~m/V/)){push @list, $id}}
1423: $_=$u;
1424: if ((s/υενσρ$/οχατψσρ/) && (m/οχατψσρ$/))
1425: { ($fl,$id)=getflag($dbh,$_);
1426: if ($fl && ($fl=~m/V/)){push @list, $id}}
1427: $_=$u;
1428: if ((s/υεϋψσρ$/οχατψσρ/) && (m/οχατψσρ$/))
1429: { ($fl,$id)=getflag($dbh,$_);
1430: if ($fl && ($fl=~m/V/)){push @list, $id}}
1431: $_=$u;
1432: if ((s/υετεσψ$/οχατψσρ/) && (m/οχατψσρ$/))
1433: { ($fl,$id)=getflag($dbh,$_);
1434: if ($fl && ($fl=~m/V/)){push @list, $id}}
1435: $_=$u;
1436: if ((s/υετσρ$/οχατψσρ/) && (m/οχατψσρ$/))
1437: { ($fl,$id)=getflag($dbh,$_);
1438: if ($fl && ($fl=~m/V/)){push @list, $id}}
1439: $_=$u;
1440: if ((s/υΰτσρ$/οχατψσρ/) && (m/οχατψσρ$/))
1441: { ($fl,$id)=getflag($dbh,$_);
1442: if ($fl && ($fl=~m/V/)){push @list, $id}}
1443: $_=$u;
1444: if ((s/ξυ$/τψ/) && (m/δετψ$/))
1445: { ($fl,$id)=getflag($dbh,$_);
1446: if ($fl && ($fl=~m/V/)){push @list, $id}}
1447: $_=$u;
1448: if ((s/ξυσψ$/τψσρ/) && (m/δετψσρ$/))
1449: { ($fl,$id)=getflag($dbh,$_);
1450: if ($fl && ($fl=~m/V/)){push @list, $id}}
1451: $_=$u;
1452: if ((s/ξεν$/τψ/) && (m/δετψ$/))
1453: { ($fl,$id)=getflag($dbh,$_);
1454: if ($fl && ($fl=~m/V/)){push @list, $id}}
1455: $_=$u;
1456: if ((s/ξενσρ$/τψσρ/) && (m/δετψσρ$/))
1457: { ($fl,$id)=getflag($dbh,$_);
1458: if ($fl && ($fl=~m/V/)){push @list, $id}}
1459: $_=$u;
1460: if ((s/ξεϋψ$/τψ/) && (m/δετψ$/))
1461: { ($fl,$id)=getflag($dbh,$_);
1462: if ($fl && ($fl=~m/V/)){push @list, $id}}
1463: $_=$u;
1464: if ((s/ξεϋψσρ$/τψσρ/) && (m/δετψσρ$/))
1465: { ($fl,$id)=getflag($dbh,$_);
1466: if ($fl && ($fl=~m/V/)){push @list, $id}}
1467: $_=$u;
1468: if ((s/ξετε$/τψ/) && (m/δετψ$/))
1469: { ($fl,$id)=getflag($dbh,$_);
1470: if ($fl && ($fl=~m/V/)){push @list, $id}}
1471: $_=$u;
1472: if ((s/ξετεσψ$/τψσρ/) && (m/δετψσρ$/))
1473: { ($fl,$id)=getflag($dbh,$_);
1474: if ($fl && ($fl=~m/V/)){push @list, $id}}
1475: $_=$u;
1476: if ((s/ξετ$/τψ/) && (m/δετψ$/))
1477: { ($fl,$id)=getflag($dbh,$_);
1478: if ($fl && ($fl=~m/V/)){push @list, $id}}
1479: $_=$u;
1480: if ((s/ξετσρ$/τψσρ/) && (m/δετψσρ$/))
1481: { ($fl,$id)=getflag($dbh,$_);
1482: if ($fl && ($fl=~m/V/)){push @list, $id}}
1483: $_=$u;
1484: if ((s/ξυτ$/τψ/) && (m/δετψ$/))
1485: { ($fl,$id)=getflag($dbh,$_);
1486: if ($fl && ($fl=~m/V/)){push @list, $id}}
1487: $_=$u;
1488: if ((s/ξυτσρ$/τψσρ/) && (m/δετψσρ$/))
1489: { ($fl,$id)=getflag($dbh,$_);
1490: if ($fl && ($fl=~m/V/)){push @list, $id}}
1491: $_=$u;
1492: if ((s/ΰ$/τψ/) && (m/υτψ$/))
1493: { ($fl,$id)=getflag($dbh,$_);
1494: if ($fl && ($fl=~m/V/)){push @list, $id}}
1495: $_=$u;
1496: if ((s/ΰσψ$/τψσρ/) && (m/υτψσρ$/))
1497: { ($fl,$id)=getflag($dbh,$_);
1498: if ($fl && ($fl=~m/V/)){push @list, $id}}
1499: $_=$u;
1500: if ((s/εν$/τψ/) && (m/υτψ$/))
1501: { ($fl,$id)=getflag($dbh,$_);
1502: if ($fl && ($fl=~m/V/)){push @list, $id}}
1503: $_=$u;
1504: if ((s/ενσρ$/τψσρ/) && (m/υτψσρ$/))
1505: { ($fl,$id)=getflag($dbh,$_);
1506: if ($fl && ($fl=~m/V/)){push @list, $id}}
1507: $_=$u;
1508: if ((s/εϋψ$/τψ/) && (m/υτψ$/))
1509: { ($fl,$id)=getflag($dbh,$_);
1510: if ($fl && ($fl=~m/V/)){push @list, $id}}
1511: $_=$u;
1512: if ((s/εϋψσρ$/τψσρ/) && (m/υτψσρ$/))
1513: { ($fl,$id)=getflag($dbh,$_);
1514: if ($fl && ($fl=~m/V/)){push @list, $id}}
1515: $_=$u;
1516: if ((s/ετε$/τψ/) && (m/υτψ$/))
1517: { ($fl,$id)=getflag($dbh,$_);
1518: if ($fl && ($fl=~m/V/)){push @list, $id}}
1519: $_=$u;
1520: if ((s/ετεσψ$/τψσρ/) && (m/υτψσρ$/))
1521: { ($fl,$id)=getflag($dbh,$_);
1522: if ($fl && ($fl=~m/V/)){push @list, $id}}
1523: $_=$u;
1524: if ((s/ετ$/τψ/) && (m/υτψ$/))
1525: { ($fl,$id)=getflag($dbh,$_);
1526: if ($fl && ($fl=~m/V/)){push @list, $id}}
1527: $_=$u;
1528: if ((s/ετσρ$/τψσρ/) && (m/υτψσρ$/))
1529: { ($fl,$id)=getflag($dbh,$_);
1530: if ($fl && ($fl=~m/V/)){push @list, $id}}
1531: $_=$u;
1532: if ((s/ΰτ$/τψ/) && (m/υτψ$/))
1533: { ($fl,$id)=getflag($dbh,$_);
1534: if ($fl && ($fl=~m/V/)){push @list, $id}}
1535: $_=$u;
1536: if ((s/ΰτσρ$/τψσρ/) && (m/υτψσρ$/))
1537: { ($fl,$id)=getflag($dbh,$_);
1538: if ($fl && ($fl=~m/V/)){push @list, $id}}
1539: $_=$u;
1540: if ((s/δυ$/θατψ/) && (m/θατψ$/))
1541: { ($fl,$id)=getflag($dbh,$_);
1542: if ($fl && ($fl=~m/V/)){push @list, $id}}
1543: $_=$u;
1544: if ((s/δυσψ$/θατψσρ/) && (m/θατψσρ$/))
1545: { ($fl,$id)=getflag($dbh,$_);
1546: if ($fl && ($fl=~m/V/)){push @list, $id}}
1547: $_=$u;
1548: if ((s/δεν$/θατψ/) && (m/θατψ$/))
1549: { ($fl,$id)=getflag($dbh,$_);
1550: if ($fl && ($fl=~m/V/)){push @list, $id}}
1551: $_=$u;
1552: if ((s/δενσρ$/θατψσρ/) && (m/θατψσρ$/))
1553: { ($fl,$id)=getflag($dbh,$_);
1554: if ($fl && ($fl=~m/V/)){push @list, $id}}
1555: $_=$u;
1556: if ((s/δεϋψ$/θατψ/) && (m/θατψ$/))
1557: { ($fl,$id)=getflag($dbh,$_);
1558: if ($fl && ($fl=~m/V/)){push @list, $id}}
1559: $_=$u;
1560: if ((s/δεϋψσρ$/θατψσρ/) && (m/θατψσρ$/))
1561: { ($fl,$id)=getflag($dbh,$_);
1562: if ($fl && ($fl=~m/V/)){push @list, $id}}
1563: $_=$u;
1564: if ((s/δετε$/θατψ/) && (m/θατψ$/))
1565: { ($fl,$id)=getflag($dbh,$_);
1566: if ($fl && ($fl=~m/V/)){push @list, $id}}
1567: $_=$u;
1568: if ((s/δετεσψ$/θατψσρ/) && (m/θατψσρ$/))
1569: { ($fl,$id)=getflag($dbh,$_);
1570: if ($fl && ($fl=~m/V/)){push @list, $id}}
1571: $_=$u;
1572: if ((s/δετ$/θατψ/) && (m/θατψ$/))
1573: { ($fl,$id)=getflag($dbh,$_);
1574: if ($fl && ($fl=~m/V/)){push @list, $id}}
1575: $_=$u;
1576: if ((s/δετσρ$/θατψσρ/) && (m/θατψσρ$/))
1577: { ($fl,$id)=getflag($dbh,$_);
1578: if ($fl && ($fl=~m/V/)){push @list, $id}}
1579: $_=$u;
1580: if ((s/δυτ$/θατψ/) && (m/θατψ$/))
1581: { ($fl,$id)=getflag($dbh,$_);
1582: if ($fl && ($fl=~m/V/)){push @list, $id}}
1583: $_=$u;
1584: if ((s/δυτσρ$/θατψσρ/) && (m/θατψσρ$/))
1585: { ($fl,$id)=getflag($dbh,$_);
1586: if ($fl && ($fl=~m/V/)){push @list, $id}}
1587: $_=$u;
1588: if ((s/μΰ$/ατψ/) && (m/πατψ$/))
1589: { ($fl,$id)=getflag($dbh,$_);
1590: if ($fl && ($fl=~m/V/)){push @list, $id}}
1591: $_=$u;
1592: if ((s/μΰσψ$/ατψσρ/) && (m/πατψσρ$/))
1593: { ($fl,$id)=getflag($dbh,$_);
1594: if ($fl && ($fl=~m/V/)){push @list, $id}}
1595: $_=$u;
1596: if ((s/μεν$/ατψ/) && (m/πατψ$/))
1597: { ($fl,$id)=getflag($dbh,$_);
1598: if ($fl && ($fl=~m/V/)){push @list, $id}}
1599: $_=$u;
1600: if ((s/μενσρ$/ατψσρ/) && (m/πατψσρ$/))
1601: { ($fl,$id)=getflag($dbh,$_);
1602: if ($fl && ($fl=~m/V/)){push @list, $id}}
1603: $_=$u;
1604: if ((s/μεϋψ$/ατψ/) && (m/πατψ$/))
1605: { ($fl,$id)=getflag($dbh,$_);
1606: if ($fl && ($fl=~m/V/)){push @list, $id}}
1607: $_=$u;
1608: if ((s/μεϋψσρ$/ατψσρ/) && (m/πατψσρ$/))
1609: { ($fl,$id)=getflag($dbh,$_);
1610: if ($fl && ($fl=~m/V/)){push @list, $id}}
1611: $_=$u;
1612: if ((s/μετε$/ατψ/) && (m/πατψ$/))
1613: { ($fl,$id)=getflag($dbh,$_);
1614: if ($fl && ($fl=~m/V/)){push @list, $id}}
1615: $_=$u;
1616: if ((s/μετεσψ$/ατψσρ/) && (m/πατψσρ$/))
1617: { ($fl,$id)=getflag($dbh,$_);
1618: if ($fl && ($fl=~m/V/)){push @list, $id}}
1619: $_=$u;
1620: if ((s/μετ$/ατψ/) && (m/πατψ$/))
1621: { ($fl,$id)=getflag($dbh,$_);
1622: if ($fl && ($fl=~m/V/)){push @list, $id}}
1623: $_=$u;
1624: if ((s/μετσρ$/ατψσρ/) && (m/πατψσρ$/))
1625: { ($fl,$id)=getflag($dbh,$_);
1626: if ($fl && ($fl=~m/V/)){push @list, $id}}
1627: $_=$u;
1628: if ((s/μΰτ$/ατψ/) && (m/πατψ$/))
1629: { ($fl,$id)=getflag($dbh,$_);
1630: if ($fl && ($fl=~m/V/)){push @list, $id}}
1631: $_=$u;
1632: if ((s/μΰτσρ$/ατψσρ/) && (m/πατψσρ$/))
1633: { ($fl,$id)=getflag($dbh,$_);
1634: if ($fl && ($fl=~m/V/)){push @list, $id}}
1635: $_=$u;
1636: if ((s/ρηυ$/εώψ/) && (m/μεώψ$/))
1637: { ($fl,$id)=getflag($dbh,$_);
1638: if ($fl && ($fl=~m/V/)){push @list, $id}}
1639: $_=$u;
1640: if ((s/ρηυσψ$/εώψσρ/) && (m/μεώψσρ$/))
1641: { ($fl,$id)=getflag($dbh,$_);
1642: if ($fl && ($fl=~m/V/)){push @list, $id}}
1643: $_=$u;
1644: if ((s/ρφεν$/εώψ/) && (m/μεώψ$/))
1645: { ($fl,$id)=getflag($dbh,$_);
1646: if ($fl && ($fl=~m/V/)){push @list, $id}}
1647: $_=$u;
1648: if ((s/ρφενσρ$/εώψσρ/) && (m/μεώψσρ$/))
1649: { ($fl,$id)=getflag($dbh,$_);
1650: if ($fl && ($fl=~m/V/)){push @list, $id}}
1651: $_=$u;
1652: if ((s/ρφεϋψ$/εώψ/) && (m/μεώψ$/))
1653: { ($fl,$id)=getflag($dbh,$_);
1654: if ($fl && ($fl=~m/V/)){push @list, $id}}
1655: $_=$u;
1656: if ((s/ρφεϋψσρ$/εώψσρ/) && (m/μεώψσρ$/))
1657: { ($fl,$id)=getflag($dbh,$_);
1658: if ($fl && ($fl=~m/V/)){push @list, $id}}
1659: $_=$u;
1660: if ((s/ρφετε$/εώψ/) && (m/μεώψ$/))
1661: { ($fl,$id)=getflag($dbh,$_);
1662: if ($fl && ($fl=~m/V/)){push @list, $id}}
1663: $_=$u;
1664: if ((s/ρφετεσψ$/εώψσρ/) && (m/μεώψσρ$/))
1665: { ($fl,$id)=getflag($dbh,$_);
1666: if ($fl && ($fl=~m/V/)){push @list, $id}}
1667: $_=$u;
1668: if ((s/ρφετ$/εώψ/) && (m/μεώψ$/))
1669: { ($fl,$id)=getflag($dbh,$_);
1670: if ($fl && ($fl=~m/V/)){push @list, $id}}
1671: $_=$u;
1672: if ((s/ρφετσρ$/εώψσρ/) && (m/μεώψσρ$/))
1673: { ($fl,$id)=getflag($dbh,$_);
1674: if ($fl && ($fl=~m/V/)){push @list, $id}}
1675: $_=$u;
1676: if ((s/ρηυτ$/εώψ/) && (m/μεώψ$/))
1677: { ($fl,$id)=getflag($dbh,$_);
1678: if ($fl && ($fl=~m/V/)){push @list, $id}}
1679: $_=$u;
1680: if ((s/ρηυτσρ$/εώψσρ/) && (m/μεώψσρ$/))
1681: { ($fl,$id)=getflag($dbh,$_);
1682: if ($fl && ($fl=~m/V/)){push @list, $id}}
1683: $_=$u;
1684: if ((s/ΰ$/ρτψ/) && (m/ρτψ$/))
1685: { ($fl,$id)=getflag($dbh,$_);
1686: if ($fl && ($fl=~m/V/)){push @list, $id}}
1687: $_=$u;
1688: if ((s/εν$/ρτψ/) && (m/ρτψ$/))
1689: { ($fl,$id)=getflag($dbh,$_);
1690: if ($fl && ($fl=~m/V/)){push @list, $id}}
1691: $_=$u;
1692: if ((s/εϋψ$/ρτψ/) && (m/ρτψ$/))
1693: { ($fl,$id)=getflag($dbh,$_);
1694: if ($fl && ($fl=~m/V/)){push @list, $id}}
1695: $_=$u;
1696: if ((s/ετε$/ρτψ/) && (m/ρτψ$/))
1697: { ($fl,$id)=getflag($dbh,$_);
1698: if ($fl && ($fl=~m/V/)){push @list, $id}}
1699: $_=$u;
1700: if ((s/ετ$/ρτψ/) && (m/ρτψ$/))
1701: { ($fl,$id)=getflag($dbh,$_);
1702: if ($fl && ($fl=~m/V/)){push @list, $id}}
1703: $_=$u;
1704: if ((s/ΰτ$/ρτψ/) && (m/ρτψ$/))
1705: { ($fl,$id)=getflag($dbh,$_);
1706: if ($fl && ($fl=~m/V/)){push @list, $id}}
1707: $_=$u;
1708: if ((s/ΰσψ$/ρτψσρ/) && (m/ρτψσρ$/))
1709: { ($fl,$id)=getflag($dbh,$_);
1710: if ($fl && ($fl=~m/V/)){push @list, $id}}
1711: $_=$u;
1712: if ((s/ενσρ$/ρτψσρ/) && (m/ρτψσρ$/))
1713: { ($fl,$id)=getflag($dbh,$_);
1714: if ($fl && ($fl=~m/V/)){push @list, $id}}
1715: $_=$u;
1716: if ((s/εϋψσρ$/ρτψσρ/) && (m/ρτψσρ$/))
1717: { ($fl,$id)=getflag($dbh,$_);
1718: if ($fl && ($fl=~m/V/)){push @list, $id}}
1719: $_=$u;
1720: if ((s/ετεσψ$/ρτψσρ/) && (m/ρτψσρ$/))
1721: { ($fl,$id)=getflag($dbh,$_);
1722: if ($fl && ($fl=~m/V/)){push @list, $id}}
1723: $_=$u;
1724: if ((s/ετσρ$/ρτψσρ/) && (m/ρτψσρ$/))
1725: { ($fl,$id)=getflag($dbh,$_);
1726: if ($fl && ($fl=~m/V/)){push @list, $id}}
1727: $_=$u;
1728: if ((s/ΰτσρ$/ρτψσρ/) && (m/ρτψσρ$/))
1729: { ($fl,$id)=getflag($dbh,$_);
1730: if ($fl && ($fl=~m/V/)){push @list, $id}}
1731: $_=$u;
1732: if ((s/υ$/ατψ/) && (m/δατψ$/))
1733: { ($fl,$id)=getflag($dbh,$_);
1734: if ($fl && ($fl=~m/V/)){push @list, $id}}
1735: $_=$u;
1736: if ((s/εν$/ατψ/) && (m/δατψ$/))
1737: { ($fl,$id)=getflag($dbh,$_);
1738: if ($fl && ($fl=~m/V/)){push @list, $id}}
1739: $_=$u;
1740: if ((s/εϋψ$/ατψ/) && (m/δατψ$/))
1741: { ($fl,$id)=getflag($dbh,$_);
1742: if ($fl && ($fl=~m/V/)){push @list, $id}}
1743: $_=$u;
1744: if ((s/ετε$/ατψ/) && (m/δατψ$/))
1745: { ($fl,$id)=getflag($dbh,$_);
1746: if ($fl && ($fl=~m/V/)){push @list, $id}}
1747: $_=$u;
1748: if ((s/ετ$/ατψ/) && (m/δατψ$/))
1749: { ($fl,$id)=getflag($dbh,$_);
1750: if ($fl && ($fl=~m/V/)){push @list, $id}}
1751: $_=$u;
1752: if ((s/υτ$/ατψ/) && (m/δατψ$/))
1753: { ($fl,$id)=getflag($dbh,$_);
1754: if ($fl && ($fl=~m/V/)){push @list, $id}}
1755: $_=$u;
1756: if ((s/φυ$/δετψ/) && (m/δετψ$/))
1757: { ($fl,$id)=getflag($dbh,$_);
1758: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1759: $_=$u;
1760: if ((s/φυσψ$/δετψσρ/) && (m/δετψσρ$/))
1761: { ($fl,$id)=getflag($dbh,$_);
1762: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1763: $_=$u;
1764: if ((s/μΰ$/ετψ/) && (m/πετψ$/))
1765: { ($fl,$id)=getflag($dbh,$_);
1766: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1767: $_=$u;
1768: if ((s/μΰσψ$/ετψσρ/) && (m/πετψσρ$/))
1769: { ($fl,$id)=getflag($dbh,$_);
1770: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1771: $_=$u;
1772: if ((s/ΰ$/ετψ/) && (m/ςετψ$/))
1773: { ($fl,$id)=getflag($dbh,$_);
1774: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1775: $_=$u;
1776: if ((s/ΰσψ$/ετψσρ/) && (m/ςετψσρ$/))
1777: { ($fl,$id)=getflag($dbh,$_);
1778: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1779: $_=$u;
1780: if ((s/ϋυ$/σετψ/) && (m/σετψ$/))
1781: { ($fl,$id)=getflag($dbh,$_);
1782: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1783: $_=$u;
1784: if ((s/ιν$/ετψ/) && (m/[δνξπςστ]ετψ$/))
1785: { ($fl,$id)=getflag($dbh,$_);
1786: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1787: $_=$u;
1788: if ((s/ινσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/))
1789: { ($fl,$id)=getflag($dbh,$_);
1790: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1791: $_=$u;
1792: if ((s/ιϋψ$/ετψ/) && (m/[δνξπςστ]ετψ$/))
1793: { ($fl,$id)=getflag($dbh,$_);
1794: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1795: $_=$u;
1796: if ((s/ιϋψσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/))
1797: { ($fl,$id)=getflag($dbh,$_);
1798: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1799: $_=$u;
1800: if ((s/ιτε$/ετψ/) && (m/[δνξπςστ]ετψ$/))
1801: { ($fl,$id)=getflag($dbh,$_);
1802: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1803: $_=$u;
1804: if ((s/ιτεσψ$/ετψσρ/) && (m/[δςτ]ετψσρ$/))
1805: { ($fl,$id)=getflag($dbh,$_);
1806: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1807: $_=$u;
1808: if ((s/ιτ$/ετψ/) && (m/[δνξπςστ]ετψ$/))
1809: { ($fl,$id)=getflag($dbh,$_);
1810: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1811: $_=$u;
1812: if ((s/ιτσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/))
1813: { ($fl,$id)=getflag($dbh,$_);
1814: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1815: $_=$u;
1816: if ((s/ρτ$/ετψ/) && (m/[δνξπςστ]ετψ$/))
1817: { ($fl,$id)=getflag($dbh,$_);
1818: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1819: $_=$u;
1820: if ((s/ρτσρ$/ετψσρ/) && (m/[δςτ]ετψσρ$/))
1821: { ($fl,$id)=getflag($dbh,$_);
1822: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1823: $_=$u;
1824: if ((s/υδυ$/ωτψ/) && (m/βωτψ$/))
1825: { ($fl,$id)=getflag($dbh,$_);
1826: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1827: $_=$u;
1828: if ((s/υδυσψ$/ωτψσρ/) && (m/βωτψσρ$/))
1829: { ($fl,$id)=getflag($dbh,$_);
1830: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1831: $_=$u;
1832: if ((s/υδεν$/ωτψ/) && (m/βωτψ$/))
1833: { ($fl,$id)=getflag($dbh,$_);
1834: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1835: $_=$u;
1836: if ((s/υδενσρ$/ωτψσρ/) && (m/βωτψσρ$/))
1837: { ($fl,$id)=getflag($dbh,$_);
1838: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1839: $_=$u;
1840: if ((s/υδεϋψ$/ωτψ/) && (m/βωτψ$/))
1841: { ($fl,$id)=getflag($dbh,$_);
1842: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1843: $_=$u;
1844: if ((s/υδεϋψσρ$/ωτψσρ/) && (m/βωτψσρ$/))
1845: { ($fl,$id)=getflag($dbh,$_);
1846: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1847: $_=$u;
1848: if ((s/υδετε$/ωτψ/) && (m/βωτψ$/))
1849: { ($fl,$id)=getflag($dbh,$_);
1850: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1851: $_=$u;
1852: if ((s/υδετεσψ$/ωτψσρ/) && (m/βωτψσρ$/))
1853: { ($fl,$id)=getflag($dbh,$_);
1854: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1855: $_=$u;
1856: if ((s/υδετ$/ωτψ/) && (m/βωτψ$/))
1857: { ($fl,$id)=getflag($dbh,$_);
1858: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1859: $_=$u;
1860: if ((s/υδετσρ$/ωτψσρ/) && (m/βωτψσρ$/))
1861: { ($fl,$id)=getflag($dbh,$_);
1862: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1863: $_=$u;
1864: if ((s/υδυτ$/ωτψ/) && (m/βωτψ$/))
1865: { ($fl,$id)=getflag($dbh,$_);
1866: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1867: $_=$u;
1868: if ((s/υδυτσρ$/ωτψσρ/) && (m/βωτψσρ$/))
1869: { ($fl,$id)=getflag($dbh,$_);
1870: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1871: $_=$u;
1872: if ((s/χυ$/τψ/) && (m/μωτψ$/))
1873: { ($fl,$id)=getflag($dbh,$_);
1874: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1875: $_=$u;
1876: if ((s/χυσψ$/τψσρ/) && (m/μωτψσρ$/))
1877: { ($fl,$id)=getflag($dbh,$_);
1878: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1879: $_=$u;
1880: if ((s/χεν$/τψ/) && (m/μωτψ$/))
1881: { ($fl,$id)=getflag($dbh,$_);
1882: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1883: $_=$u;
1884: if ((s/χενσρ$/τψσρ/) && (m/μωτψσρ$/))
1885: { ($fl,$id)=getflag($dbh,$_);
1886: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1887: $_=$u;
1888: if ((s/χεϋψ$/τψ/) && (m/μωτψ$/))
1889: { ($fl,$id)=getflag($dbh,$_);
1890: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1891: $_=$u;
1892: if ((s/χεϋψσρ$/τψσρ/) && (m/μωτψσρ$/))
1893: { ($fl,$id)=getflag($dbh,$_);
1894: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1895: $_=$u;
1896: if ((s/χετε$/τψ/) && (m/μωτψ$/))
1897: { ($fl,$id)=getflag($dbh,$_);
1898: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1899: $_=$u;
1900: if ((s/χετεσψ$/τψσρ/) && (m/μωτψσρ$/))
1901: { ($fl,$id)=getflag($dbh,$_);
1902: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1903: $_=$u;
1904: if ((s/χετ$/τψ/) && (m/μωτψ$/))
1905: { ($fl,$id)=getflag($dbh,$_);
1906: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1907: $_=$u;
1908: if ((s/χετσρ$/τψσρ/) && (m/μωτψσρ$/))
1909: { ($fl,$id)=getflag($dbh,$_);
1910: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1911: $_=$u;
1912: if ((s/χυτ$/τψ/) && (m/μωτψ$/))
1913: { ($fl,$id)=getflag($dbh,$_);
1914: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1915: $_=$u;
1916: if ((s/χυτσρ$/τψσρ/) && (m/μωτψσρ$/))
1917: { ($fl,$id)=getflag($dbh,$_);
1918: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1919: $_=$u;
1920: if ((s/φυ$/ϊατψ/) && (m/ϊατψ$/))
1921: { ($fl,$id)=getflag($dbh,$_);
1922: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1923: $_=$u;
1924: if ((s/φυσψ$/ϊατψσρ/) && (m/ϊατψσρ$/))
1925: { ($fl,$id)=getflag($dbh,$_);
1926: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1927: $_=$u;
1928: if ((s/φεν$/ϊατψ/) && (m/ϊατψ$/))
1929: { ($fl,$id)=getflag($dbh,$_);
1930: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1931: $_=$u;
1932: if ((s/φενσρ$/ϊατψσρ/) && (m/ϊατψσρ$/))
1933: { ($fl,$id)=getflag($dbh,$_);
1934: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1935: $_=$u;
1936: if ((s/φεϋψ$/ϊατψ/) && (m/ϊατψ$/))
1937: { ($fl,$id)=getflag($dbh,$_);
1938: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1939: $_=$u;
1940: if ((s/φεϋψσρ$/ϊατψσρ/) && (m/ϊατψσρ$/))
1941: { ($fl,$id)=getflag($dbh,$_);
1942: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1943: $_=$u;
1944: if ((s/φετε$/ϊατψ/) && (m/ϊατψ$/))
1945: { ($fl,$id)=getflag($dbh,$_);
1946: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1947: $_=$u;
1948: if ((s/φετεσψ$/ϊατψσρ/) && (m/ϊατψσρ$/))
1949: { ($fl,$id)=getflag($dbh,$_);
1950: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1951: $_=$u;
1952: if ((s/φετ$/ϊατψ/) && (m/ϊατψ$/))
1953: { ($fl,$id)=getflag($dbh,$_);
1954: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1955: $_=$u;
1956: if ((s/φετσρ$/ϊατψσρ/) && (m/ϊατψσρ$/))
1957: { ($fl,$id)=getflag($dbh,$_);
1958: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1959: $_=$u;
1960: if ((s/φυτ$/ϊατψ/) && (m/ϊατψ$/))
1961: { ($fl,$id)=getflag($dbh,$_);
1962: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1963: $_=$u;
1964: if ((s/φυτσρ$/ϊατψσρ/) && (m/ϊατψσρ$/))
1965: { ($fl,$id)=getflag($dbh,$_);
1966: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1967: $_=$u;
1968: if ((s/ϋυ$/σατψ/) && (m/[^ο]σατψ$/))
1969: { ($fl,$id)=getflag($dbh,$_);
1970: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1971: $_=$u;
1972: if ((s/ϋυσψ$/σατψσρ/) && (m/[^ο]σατψσρ$/))
1973: { ($fl,$id)=getflag($dbh,$_);
1974: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1975: $_=$u;
1976: if ((s/ϋεν$/σατψ/) && (m/[^ο]σατψ$/))
1977: { ($fl,$id)=getflag($dbh,$_);
1978: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1979: $_=$u;
1980: if ((s/ϋενσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/))
1981: { ($fl,$id)=getflag($dbh,$_);
1982: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1983: $_=$u;
1984: if ((s/ϋεϋψ$/σατψ/) && (m/[^ο]σατψ$/))
1985: { ($fl,$id)=getflag($dbh,$_);
1986: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1987: $_=$u;
1988: if ((s/ϋεϋψσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/))
1989: { ($fl,$id)=getflag($dbh,$_);
1990: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1991: $_=$u;
1992: if ((s/ϋετε$/σατψ/) && (m/[^ο]σατψ$/))
1993: { ($fl,$id)=getflag($dbh,$_);
1994: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1995: $_=$u;
1996: if ((s/ϋετεσψ$/σατψσρ/) && (m/[^ο]σατψσρ$/))
1997: { ($fl,$id)=getflag($dbh,$_);
1998: if ($fl && ($fl=~m/Y/)){push @list, $id}}
1999: $_=$u;
2000: if ((s/ϋετ$/σατψ/) && (m/[^ο]σατψ$/))
2001: { ($fl,$id)=getflag($dbh,$_);
2002: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2003: $_=$u;
2004: if ((s/ϋετσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/))
2005: { ($fl,$id)=getflag($dbh,$_);
2006: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2007: $_=$u;
2008: if ((s/ϋυτ$/σατψ/) && (m/[^ο]σατψ$/))
2009: { ($fl,$id)=getflag($dbh,$_);
2010: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2011: $_=$u;
2012: if ((s/ϋυτσρ$/σατψσρ/) && (m/[^ο]σατψσρ$/))
2013: { ($fl,$id)=getflag($dbh,$_);
2014: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2015: $_=$u;
2016: if ((s/υ$/ατψ/) && (m/οσατψ$/))
2017: { ($fl,$id)=getflag($dbh,$_);
2018: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2019: $_=$u;
2020: if ((s/υσψ$/ατψσρ/) && (m/οσατψσρ$/))
2021: { ($fl,$id)=getflag($dbh,$_);
2022: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2023: $_=$u;
2024: if ((s/εν$/ατψ/) && (m/οσατψ$/))
2025: { ($fl,$id)=getflag($dbh,$_);
2026: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2027: $_=$u;
2028: if ((s/ενσρ$/ατψσρ/) && (m/οσατψσρ$/))
2029: { ($fl,$id)=getflag($dbh,$_);
2030: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2031: $_=$u;
2032: if ((s/εϋψ$/ατψ/) && (m/οσατψ$/))
2033: { ($fl,$id)=getflag($dbh,$_);
2034: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2035: $_=$u;
2036: if ((s/εϋψσρ$/ατψσρ/) && (m/οσατψσρ$/))
2037: { ($fl,$id)=getflag($dbh,$_);
2038: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2039: $_=$u;
2040: if ((s/ετε$/ατψ/) && (m/οσατψ$/))
2041: { ($fl,$id)=getflag($dbh,$_);
2042: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2043: $_=$u;
2044: if ((s/ετεσψ$/ατψσρ/) && (m/οσατψσρ$/))
2045: { ($fl,$id)=getflag($dbh,$_);
2046: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2047: $_=$u;
2048: if ((s/ετ$/ατψ/) && (m/οσατψ$/))
2049: { ($fl,$id)=getflag($dbh,$_);
2050: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2051: $_=$u;
2052: if ((s/ετσρ$/ατψσρ/) && (m/οσατψσρ$/))
2053: { ($fl,$id)=getflag($dbh,$_);
2054: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2055: $_=$u;
2056: if ((s/υτ$/ατψ/) && (m/οσατψ$/))
2057: { ($fl,$id)=getflag($dbh,$_);
2058: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2059: $_=$u;
2060: if ((s/υτσρ$/ατψσρ/) && (m/οσατψσρ$/))
2061: { ($fl,$id)=getflag($dbh,$_);
2062: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2063: $_=$u;
2064: if ((s/ηυ$/φατψ/) && (m/φατψ$/))
2065: { ($fl,$id)=getflag($dbh,$_);
2066: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2067: $_=$u;
2068: if ((s/ηυσψ$/φατψσρ/) && (m/φατψσρ$/))
2069: { ($fl,$id)=getflag($dbh,$_);
2070: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2071: $_=$u;
2072: if ((s/ιν$/ατψ/) && (m/φατψ$/))
2073: { ($fl,$id)=getflag($dbh,$_);
2074: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2075: $_=$u;
2076: if ((s/ινσρ$/ατψσρ/) && (m/φατψσρ$/))
2077: { ($fl,$id)=getflag($dbh,$_);
2078: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2079: $_=$u;
2080: if ((s/ιϋψ$/ατψ/) && (m/φατψ$/))
2081: { ($fl,$id)=getflag($dbh,$_);
2082: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2083: $_=$u;
2084: if ((s/ιϋψσρ$/ατψσρ/) && (m/φατψσρ$/))
2085: { ($fl,$id)=getflag($dbh,$_);
2086: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2087: $_=$u;
2088: if ((s/ιτε$/ατψ/) && (m/φατψ$/))
2089: { ($fl,$id)=getflag($dbh,$_);
2090: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2091: $_=$u;
2092: if ((s/ιτεσψ$/ατψσρ/) && (m/φατψσρ$/))
2093: { ($fl,$id)=getflag($dbh,$_);
2094: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2095: $_=$u;
2096: if ((s/ιτ$/ατψ/) && (m/φατψ$/))
2097: { ($fl,$id)=getflag($dbh,$_);
2098: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2099: $_=$u;
2100: if ((s/ιτσρ$/ατψσρ/) && (m/φατψσρ$/))
2101: { ($fl,$id)=getflag($dbh,$_);
2102: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2103: $_=$u;
2104: if ((s/ηυτ$/φατψ/) && (m/φατψ$/))
2105: { ($fl,$id)=getflag($dbh,$_);
2106: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2107: $_=$u;
2108: if ((s/ηυτσρ$/φατψσρ/) && (m/φατψσρ$/))
2109: { ($fl,$id)=getflag($dbh,$_);
2110: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2111: $_=$u;
2112: if ((s/ΰ$/ιτψ/) && (m/μιτψ$/))
2113: { ($fl,$id)=getflag($dbh,$_);
2114: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2115: $_=$u;
2116: if ((s/εν$/ιτψ/) && (m/μιτψ$/))
2117: { ($fl,$id)=getflag($dbh,$_);
2118: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2119: $_=$u;
2120: if ((s/εϋψ$/ιτψ/) && (m/μιτψ$/))
2121: { ($fl,$id)=getflag($dbh,$_);
2122: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2123: $_=$u;
2124: if ((s/ετε$/ιτψ/) && (m/μιτψ$/))
2125: { ($fl,$id)=getflag($dbh,$_);
2126: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2127: $_=$u;
2128: if ((s/ετ$/ιτψ/) && (m/μιτψ$/))
2129: { ($fl,$id)=getflag($dbh,$_);
2130: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2131: $_=$u;
2132: if ((s/ΰτ$/ιτψ/) && (m/μιτψ$/))
2133: { ($fl,$id)=getflag($dbh,$_);
2134: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2135: $_=$u;
2136: if ((s/ν$/τψ/) && (m/δατψ$/))
2137: { ($fl,$id)=getflag($dbh,$_);
2138: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2139: $_=$u;
2140: if ((s/νσρ$/τψσρ/) && (m/δατψσρ$/))
2141: { ($fl,$id)=getflag($dbh,$_);
2142: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2143: $_=$u;
2144: if ((s/διν$/τψ/) && (m/δατψ$/))
2145: { ($fl,$id)=getflag($dbh,$_);
2146: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2147: $_=$u;
2148: if ((s/δινσρ$/τψσρ/) && (m/δατψσρ$/))
2149: { ($fl,$id)=getflag($dbh,$_);
2150: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2151: $_=$u;
2152: if ((s/ϋψ$/τψ/) && (m/δατψ$/))
2153: { ($fl,$id)=getflag($dbh,$_);
2154: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2155: $_=$u;
2156: if ((s/ϋψσρ$/τψσρ/) && (m/δατψσρ$/))
2157: { ($fl,$id)=getflag($dbh,$_);
2158: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2159: $_=$u;
2160: if ((s/διτε$/τψ/) && (m/δατψ$/))
2161: { ($fl,$id)=getflag($dbh,$_);
2162: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2163: $_=$u;
2164: if ((s/διτεσψ$/τψσρ/) && (m/δατψσρ$/))
2165: { ($fl,$id)=getflag($dbh,$_);
2166: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2167: $_=$u;
2168: if ((s/στ$/τψ/) && (m/δατψ$/))
2169: { ($fl,$id)=getflag($dbh,$_);
2170: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2171: $_=$u;
2172: if ((s/στσρ$/τψσρ/) && (m/δατψσρ$/))
2173: { ($fl,$id)=getflag($dbh,$_);
2174: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2175: $_=$u;
2176: if ((s/δυτ$/τψ/) && (m/δατψ$/))
2177: { ($fl,$id)=getflag($dbh,$_);
2178: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2179: $_=$u;
2180: if ((s/δυτσρ$/τψσρ/) && (m/δατψσρ$/))
2181: { ($fl,$id)=getflag($dbh,$_);
2182: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2183: $_=$u;
2184: if ((s/ώυ$/λατψ/) && (m/[^σ]λατψ$/))
2185: { ($fl,$id)=getflag($dbh,$_);
2186: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2187: $_=$u;
2188: if ((s/ώυσψ$/λατψσρ/) && (m/[^σ]λατψσρ$/))
2189: { ($fl,$id)=getflag($dbh,$_);
2190: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2191: $_=$u;
2192: if ((s/ώεν$/λατψ/) && (m/[^σ]λατψ$/))
2193: { ($fl,$id)=getflag($dbh,$_);
2194: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2195: $_=$u;
2196: if ((s/ώενσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/))
2197: { ($fl,$id)=getflag($dbh,$_);
2198: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2199: $_=$u;
2200: if ((s/ώεϋψ$/λατψ/) && (m/[^σ]λατψ$/))
2201: { ($fl,$id)=getflag($dbh,$_);
2202: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2203: $_=$u;
2204: if ((s/ώεϋψσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/))
2205: { ($fl,$id)=getflag($dbh,$_);
2206: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2207: $_=$u;
2208: if ((s/ώετε$/λατψ/) && (m/[^σ]λατψ$/))
2209: { ($fl,$id)=getflag($dbh,$_);
2210: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2211: $_=$u;
2212: if ((s/ώετεσψ$/λατψσρ/) && (m/[^σ]λατψσρ$/))
2213: { ($fl,$id)=getflag($dbh,$_);
2214: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2215: $_=$u;
2216: if ((s/ώετ$/λατψ/) && (m/[^σ]λατψ$/))
2217: { ($fl,$id)=getflag($dbh,$_);
2218: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2219: $_=$u;
2220: if ((s/ώετσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/))
2221: { ($fl,$id)=getflag($dbh,$_);
2222: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2223: $_=$u;
2224: if ((s/ώυτ$/λατψ/) && (m/[^σ]λατψ$/))
2225: { ($fl,$id)=getflag($dbh,$_);
2226: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2227: $_=$u;
2228: if ((s/ώυτσρ$/λατψσρ/) && (m/[^σ]λατψσρ$/))
2229: { ($fl,$id)=getflag($dbh,$_);
2230: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2231: $_=$u;
2232: if ((s/ύυ$/σλατψ/) && (m/σλατψ$/))
2233: { ($fl,$id)=getflag($dbh,$_);
2234: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2235: $_=$u;
2236: if ((s/ύυσψ$/σλατψσρ/) && (m/σλατψσρ$/))
2237: { ($fl,$id)=getflag($dbh,$_);
2238: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2239: $_=$u;
2240: if ((s/ύεν$/σλατψ/) && (m/σλατψ$/))
2241: { ($fl,$id)=getflag($dbh,$_);
2242: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2243: $_=$u;
2244: if ((s/ύενσρ$/σλατψσρ/) && (m/σλατψσρ$/))
2245: { ($fl,$id)=getflag($dbh,$_);
2246: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2247: $_=$u;
2248: if ((s/ύεϋψ$/σλατψ/) && (m/σλατψ$/))
2249: { ($fl,$id)=getflag($dbh,$_);
2250: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2251: $_=$u;
2252: if ((s/ύεϋψσρ$/σλατψσρ/) && (m/σλατψσρ$/))
2253: { ($fl,$id)=getflag($dbh,$_);
2254: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2255: $_=$u;
2256: if ((s/ύετε$/σλατψ/) && (m/σλατψ$/))
2257: { ($fl,$id)=getflag($dbh,$_);
2258: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2259: $_=$u;
2260: if ((s/ύετεσψ$/σλατψσρ/) && (m/σλατψσρ$/))
2261: { ($fl,$id)=getflag($dbh,$_);
2262: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2263: $_=$u;
2264: if ((s/ύετ$/σλατψ/) && (m/σλατψ$/))
2265: { ($fl,$id)=getflag($dbh,$_);
2266: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2267: $_=$u;
2268: if ((s/ύετσρ$/σλατψσρ/) && (m/σλατψσρ$/))
2269: { ($fl,$id)=getflag($dbh,$_);
2270: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2271: $_=$u;
2272: if ((s/ύυτ$/σλατψ/) && (m/σλατψ$/))
2273: { ($fl,$id)=getflag($dbh,$_);
2274: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2275: $_=$u;
2276: if ((s/ύυτσρ$/σλατψσρ/) && (m/σλατψσρ$/))
2277: { ($fl,$id)=getflag($dbh,$_);
2278: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2279: $_=$u;
2280: if ((s/εςυ$/ςατψ/) && (m/[βδ]ςατψ$/))
2281: { ($fl,$id)=getflag($dbh,$_);
2282: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2283: $_=$u;
2284: if ((s/εςυσψ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/))
2285: { ($fl,$id)=getflag($dbh,$_);
2286: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2287: $_=$u;
2288: if ((s/εςεν$/ςατψ/) && (m/[βδ]ςατψ$/))
2289: { ($fl,$id)=getflag($dbh,$_);
2290: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2291: $_=$u;
2292: if ((s/εςενσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/))
2293: { ($fl,$id)=getflag($dbh,$_);
2294: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2295: $_=$u;
2296: if ((s/εςεϋψ$/ςατψ/) && (m/[βδ]ςατψ$/))
2297: { ($fl,$id)=getflag($dbh,$_);
2298: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2299: $_=$u;
2300: if ((s/εςεϋψσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/))
2301: { ($fl,$id)=getflag($dbh,$_);
2302: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2303: $_=$u;
2304: if ((s/εςετε$/ςατψ/) && (m/[βδ]ςατψ$/))
2305: { ($fl,$id)=getflag($dbh,$_);
2306: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2307: $_=$u;
2308: if ((s/εςετεσψ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/))
2309: { ($fl,$id)=getflag($dbh,$_);
2310: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2311: $_=$u;
2312: if ((s/εςετ$/ςατψ/) && (m/[βδ]ςατψ$/))
2313: { ($fl,$id)=getflag($dbh,$_);
2314: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2315: $_=$u;
2316: if ((s/εςετσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/))
2317: { ($fl,$id)=getflag($dbh,$_);
2318: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2319: $_=$u;
2320: if ((s/εςυτ$/ςατψ/) && (m/[βδ]ςατψ$/))
2321: { ($fl,$id)=getflag($dbh,$_);
2322: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2323: $_=$u;
2324: if ((s/εςυτσρ$/ςατψσρ/) && (m/[βδ]ςατψσρ$/))
2325: { ($fl,$id)=getflag($dbh,$_);
2326: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2327: $_=$u;
2328: if ((s/ςυ$/ςατψ/) && (m/[^βδ]ςατψ$/))
2329: { ($fl,$id)=getflag($dbh,$_);
2330: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2331: $_=$u;
2332: if ((s/ςυσψ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/))
2333: { ($fl,$id)=getflag($dbh,$_);
2334: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2335: $_=$u;
2336: if ((s/ςεν$/ςατψ/) && (m/[^βδ]ςατψ$/))
2337: { ($fl,$id)=getflag($dbh,$_);
2338: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2339: $_=$u;
2340: if ((s/ςενσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/))
2341: { ($fl,$id)=getflag($dbh,$_);
2342: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2343: $_=$u;
2344: if ((s/ςεϋψ$/ςατψ/) && (m/[^βδ]ςατψ$/))
2345: { ($fl,$id)=getflag($dbh,$_);
2346: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2347: $_=$u;
2348: if ((s/ςεϋψσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/))
2349: { ($fl,$id)=getflag($dbh,$_);
2350: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2351: $_=$u;
2352: if ((s/ςετε$/ςατψ/) && (m/[^βδ]ςατψ$/))
2353: { ($fl,$id)=getflag($dbh,$_);
2354: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2355: $_=$u;
2356: if ((s/ςετεσψ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/))
2357: { ($fl,$id)=getflag($dbh,$_);
2358: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2359: $_=$u;
2360: if ((s/ςετ$/ςατψ/) && (m/[^βδ]ςατψ$/))
2361: { ($fl,$id)=getflag($dbh,$_);
2362: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2363: $_=$u;
2364: if ((s/ςετσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/))
2365: { ($fl,$id)=getflag($dbh,$_);
2366: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2367: $_=$u;
2368: if ((s/ςυτ$/ςατψ/) && (m/[^βδ]ςατψ$/))
2369: { ($fl,$id)=getflag($dbh,$_);
2370: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2371: $_=$u;
2372: if ((s/ςυτσρ$/ςατψσρ/) && (m/[^βδ]ςατψσρ$/))
2373: { ($fl,$id)=getflag($dbh,$_);
2374: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2375: $_=$u;
2376: if ((s/ώυ$/τατψ/) && (m/[^σ]τατψ$/))
2377: { ($fl,$id)=getflag($dbh,$_);
2378: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2379: $_=$u;
2380: if ((s/ώυσψ$/τατψσρ/) && (m/[^σ]τατψσρ$/))
2381: { ($fl,$id)=getflag($dbh,$_);
2382: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2383: $_=$u;
2384: if ((s/ώεν$/τατψ/) && (m/[^σ]τατψ$/))
2385: { ($fl,$id)=getflag($dbh,$_);
2386: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2387: $_=$u;
2388: if ((s/ώενσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/))
2389: { ($fl,$id)=getflag($dbh,$_);
2390: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2391: $_=$u;
2392: if ((s/ώεϋψ$/τατψ/) && (m/[^σ]τατψ$/))
2393: { ($fl,$id)=getflag($dbh,$_);
2394: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2395: $_=$u;
2396: if ((s/ώεϋψσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/))
2397: { ($fl,$id)=getflag($dbh,$_);
2398: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2399: $_=$u;
2400: if ((s/ώετε$/τατψ/) && (m/[^σ]τατψ$/))
2401: { ($fl,$id)=getflag($dbh,$_);
2402: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2403: $_=$u;
2404: if ((s/ώετεσψ$/τατψσρ/) && (m/[^σ]τατψσρ$/))
2405: { ($fl,$id)=getflag($dbh,$_);
2406: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2407: $_=$u;
2408: if ((s/ώετ$/τατψ/) && (m/[^σ]τατψ$/))
2409: { ($fl,$id)=getflag($dbh,$_);
2410: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2411: $_=$u;
2412: if ((s/ώετσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/))
2413: { ($fl,$id)=getflag($dbh,$_);
2414: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2415: $_=$u;
2416: if ((s/ώυτ$/τατψ/) && (m/[^σ]τατψ$/))
2417: { ($fl,$id)=getflag($dbh,$_);
2418: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2419: $_=$u;
2420: if ((s/ώυτσρ$/τατψσρ/) && (m/[^σ]τατψσρ$/))
2421: { ($fl,$id)=getflag($dbh,$_);
2422: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2423: $_=$u;
2424: if ((s/ξυ$/τψ/) && (m/στατψ$/))
2425: { ($fl,$id)=getflag($dbh,$_);
2426: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2427: $_=$u;
2428: if ((s/ξυσψ$/τψσρ/) && (m/στατψσρ$/))
2429: { ($fl,$id)=getflag($dbh,$_);
2430: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2431: $_=$u;
2432: if ((s/ξεν$/τψ/) && (m/στατψ$/))
2433: { ($fl,$id)=getflag($dbh,$_);
2434: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2435: $_=$u;
2436: if ((s/ξενσρ$/τψσρ/) && (m/στατψσρ$/))
2437: { ($fl,$id)=getflag($dbh,$_);
2438: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2439: $_=$u;
2440: if ((s/ξεϋψ$/τψ/) && (m/στατψ$/))
2441: { ($fl,$id)=getflag($dbh,$_);
2442: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2443: $_=$u;
2444: if ((s/ξεϋψσρ$/τψσρ/) && (m/στατψσρ$/))
2445: { ($fl,$id)=getflag($dbh,$_);
2446: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2447: $_=$u;
2448: if ((s/ξετε$/τψ/) && (m/στατψ$/))
2449: { ($fl,$id)=getflag($dbh,$_);
2450: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2451: $_=$u;
2452: if ((s/ξετεσψ$/τψσρ/) && (m/στατψσρ$/))
2453: { ($fl,$id)=getflag($dbh,$_);
2454: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2455: $_=$u;
2456: if ((s/ξετ$/τψ/) && (m/στατψ$/))
2457: { ($fl,$id)=getflag($dbh,$_);
2458: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2459: $_=$u;
2460: if ((s/ξετσρ$/τψσρ/) && (m/στατψσρ$/))
2461: { ($fl,$id)=getflag($dbh,$_);
2462: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2463: $_=$u;
2464: if ((s/ξυτ$/τψ/) && (m/στατψ$/))
2465: { ($fl,$id)=getflag($dbh,$_);
2466: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2467: $_=$u;
2468: if ((s/ξυτσρ$/τψσρ/) && (m/στατψσρ$/))
2469: { ($fl,$id)=getflag($dbh,$_);
2470: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2471: $_=$u;
2472: if ((s/μΰ$/ατψ/) && (m/σπατψ$/))
2473: { ($fl,$id)=getflag($dbh,$_);
2474: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2475: $_=$u;
2476: if ((s/μΰσψ$/ατψσρ/) && (m/σπατψσρ$/))
2477: { ($fl,$id)=getflag($dbh,$_);
2478: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2479: $_=$u;
2480: if ((s/ιν$/ατψ/) && (m/σπατψ$/))
2481: { ($fl,$id)=getflag($dbh,$_);
2482: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2483: $_=$u;
2484: if ((s/ινσρ$/ατψσρ/) && (m/σπατψσρ$/))
2485: { ($fl,$id)=getflag($dbh,$_);
2486: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2487: $_=$u;
2488: if ((s/ιϋψ$/ατψ/) && (m/σπατψ$/))
2489: { ($fl,$id)=getflag($dbh,$_);
2490: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2491: $_=$u;
2492: if ((s/ιϋψσρ$/ατψσρ/) && (m/σπατψσρ$/))
2493: { ($fl,$id)=getflag($dbh,$_);
2494: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2495: $_=$u;
2496: if ((s/ιτε$/ατψ/) && (m/σπατψ$/))
2497: { ($fl,$id)=getflag($dbh,$_);
2498: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2499: $_=$u;
2500: if ((s/ιτεσψ$/ατψσρ/) && (m/σπατψσρ$/))
2501: { ($fl,$id)=getflag($dbh,$_);
2502: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2503: $_=$u;
2504: if ((s/ιτ$/ατψ/) && (m/σπατψ$/))
2505: { ($fl,$id)=getflag($dbh,$_);
2506: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2507: $_=$u;
2508: if ((s/ιτσρ$/ατψσρ/) && (m/σπατψσρ$/))
2509: { ($fl,$id)=getflag($dbh,$_);
2510: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2511: $_=$u;
2512: if ((s/ρτ$/ατψ/) && (m/σπατψ$/))
2513: { ($fl,$id)=getflag($dbh,$_);
2514: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2515: $_=$u;
2516: if ((s/ρτσρ$/ατψσρ/) && (m/σπατψσρ$/))
2517: { ($fl,$id)=getflag($dbh,$_);
2518: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2519: $_=$u;
2520: if ((s/ϋμΰ$/σματψ/) && (m/σματψ$/))
2521: { ($fl,$id)=getflag($dbh,$_);
2522: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2523: $_=$u;
2524: if ((s/ϋμΰσψ$/σματψσρ/) && (m/σματψσρ$/))
2525: { ($fl,$id)=getflag($dbh,$_);
2526: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2527: $_=$u;
2528: if ((s/ϋμεν$/σματψ/) && (m/σματψ$/))
2529: { ($fl,$id)=getflag($dbh,$_);
2530: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2531: $_=$u;
2532: if ((s/ϋμενσρ$/σματψσρ/) && (m/σματψσρ$/))
2533: { ($fl,$id)=getflag($dbh,$_);
2534: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2535: $_=$u;
2536: if ((s/ϋμεϋψ$/σματψ/) && (m/σματψ$/))
2537: { ($fl,$id)=getflag($dbh,$_);
2538: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2539: $_=$u;
2540: if ((s/ϋμεϋψσρ$/σματψσρ/) && (m/σματψσρ$/))
2541: { ($fl,$id)=getflag($dbh,$_);
2542: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2543: $_=$u;
2544: if ((s/ϋμετε$/σματψ/) && (m/σματψ$/))
2545: { ($fl,$id)=getflag($dbh,$_);
2546: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2547: $_=$u;
2548: if ((s/ϋμετεσψ$/σματψσρ/) && (m/σματψσρ$/))
2549: { ($fl,$id)=getflag($dbh,$_);
2550: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2551: $_=$u;
2552: if ((s/ϋμετ$/σματψ/) && (m/σματψ$/))
2553: { ($fl,$id)=getflag($dbh,$_);
2554: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2555: $_=$u;
2556: if ((s/ϋμετσρ$/σματψσρ/) && (m/σματψσρ$/))
2557: { ($fl,$id)=getflag($dbh,$_);
2558: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2559: $_=$u;
2560: if ((s/ϋμΰτ$/σματψ/) && (m/σματψ$/))
2561: { ($fl,$id)=getflag($dbh,$_);
2562: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2563: $_=$u;
2564: if ((s/ϋμΰτσρ$/σματψσρ/) && (m/σματψσρ$/))
2565: { ($fl,$id)=getflag($dbh,$_);
2566: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2567: $_=$u;
2568: if ((s/υ$/ατψ/) && (m/ςχατψ$/))
2569: { ($fl,$id)=getflag($dbh,$_);
2570: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2571: $_=$u;
2572: if ((s/υσψ$/ατψσρ/) && (m/ςχατψσρ$/))
2573: { ($fl,$id)=getflag($dbh,$_);
2574: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2575: $_=$u;
2576: if ((s/εν$/ατψ/) && (m/ςχατψ$/))
2577: { ($fl,$id)=getflag($dbh,$_);
2578: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2579: $_=$u;
2580: if ((s/ενσρ$/ατψσρ/) && (m/ςχατψσρ$/))
2581: { ($fl,$id)=getflag($dbh,$_);
2582: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2583: $_=$u;
2584: if ((s/εϋψ$/ατψ/) && (m/ςχατψ$/))
2585: { ($fl,$id)=getflag($dbh,$_);
2586: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2587: $_=$u;
2588: if ((s/εϋψσρ$/ατψσρ/) && (m/ςχατψσρ$/))
2589: { ($fl,$id)=getflag($dbh,$_);
2590: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2591: $_=$u;
2592: if ((s/ετε$/ατψ/) && (m/ςχατψ$/))
2593: { ($fl,$id)=getflag($dbh,$_);
2594: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2595: $_=$u;
2596: if ((s/ετεσψ$/ατψσρ/) && (m/ςχατψσρ$/))
2597: { ($fl,$id)=getflag($dbh,$_);
2598: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2599: $_=$u;
2600: if ((s/ετ$/ατψ/) && (m/ςχατψ$/))
2601: { ($fl,$id)=getflag($dbh,$_);
2602: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2603: $_=$u;
2604: if ((s/ετσρ$/ατψσρ/) && (m/ςχατψσρ$/))
2605: { ($fl,$id)=getflag($dbh,$_);
2606: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2607: $_=$u;
2608: if ((s/υτ$/ατψ/) && (m/ςχατψ$/))
2609: { ($fl,$id)=getflag($dbh,$_);
2610: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2611: $_=$u;
2612: if ((s/υτσρ$/ατψσρ/) && (m/ςχατψσρ$/))
2613: { ($fl,$id)=getflag($dbh,$_);
2614: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2615: $_=$u;
2616: if ((s/οχυ$/χατψ/) && (m/ϊχατψ$/))
2617: { ($fl,$id)=getflag($dbh,$_);
2618: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2619: $_=$u;
2620: if ((s/οχυσψ$/χατψσρ/) && (m/ϊχατψσρ$/))
2621: { ($fl,$id)=getflag($dbh,$_);
2622: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2623: $_=$u;
2624: if ((s/οχεν$/χατψ/) && (m/ϊχατψ$/))
2625: { ($fl,$id)=getflag($dbh,$_);
2626: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2627: $_=$u;
2628: if ((s/οχενσρ$/χατψσρ/) && (m/ϊχατψσρ$/))
2629: { ($fl,$id)=getflag($dbh,$_);
2630: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2631: $_=$u;
2632: if ((s/οχεϋψ$/χατψ/) && (m/ϊχατψ$/))
2633: { ($fl,$id)=getflag($dbh,$_);
2634: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2635: $_=$u;
2636: if ((s/οχεϋψσρ$/χατψσρ/) && (m/ϊχατψσρ$/))
2637: { ($fl,$id)=getflag($dbh,$_);
2638: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2639: $_=$u;
2640: if ((s/οχετε$/χατψ/) && (m/ϊχατψ$/))
2641: { ($fl,$id)=getflag($dbh,$_);
2642: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2643: $_=$u;
2644: if ((s/οχετεσψ$/χατψσρ/) && (m/ϊχατψσρ$/))
2645: { ($fl,$id)=getflag($dbh,$_);
2646: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2647: $_=$u;
2648: if ((s/οχετ$/χατψ/) && (m/ϊχατψ$/))
2649: { ($fl,$id)=getflag($dbh,$_);
2650: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2651: $_=$u;
2652: if ((s/οχετσρ$/χατψσρ/) && (m/ϊχατψσρ$/))
2653: { ($fl,$id)=getflag($dbh,$_);
2654: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2655: $_=$u;
2656: if ((s/οχυτ$/χατψ/) && (m/ϊχατψ$/))
2657: { ($fl,$id)=getflag($dbh,$_);
2658: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2659: $_=$u;
2660: if ((s/οχυτσρ$/χατψσρ/) && (m/ϊχατψσρ$/))
2661: { ($fl,$id)=getflag($dbh,$_);
2662: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2663: $_=$u;
2664: if ((s/οξΰ$/ξατψ/) && (m/ηξατψ$/))
2665: { ($fl,$id)=getflag($dbh,$_);
2666: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2667: $_=$u;
2668: if ((s/οξΰσψ$/ξατψσρ/) && (m/ηξατψσρ$/))
2669: { ($fl,$id)=getflag($dbh,$_);
2670: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2671: $_=$u;
2672: if ((s/οξιν$/ξατψ/) && (m/ηξατψ$/))
2673: { ($fl,$id)=getflag($dbh,$_);
2674: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2675: $_=$u;
2676: if ((s/οξινσρ$/ξατψσρ/) && (m/ηξατψσρ$/))
2677: { ($fl,$id)=getflag($dbh,$_);
2678: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2679: $_=$u;
2680: if ((s/οξιϋψ$/ξατψ/) && (m/ηξατψ$/))
2681: { ($fl,$id)=getflag($dbh,$_);
2682: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2683: $_=$u;
2684: if ((s/οξιϋψσρ$/ξατψσρ/) && (m/ηξατψσρ$/))
2685: { ($fl,$id)=getflag($dbh,$_);
2686: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2687: $_=$u;
2688: if ((s/οξιτε$/ξατψ/) && (m/ηξατψ$/))
2689: { ($fl,$id)=getflag($dbh,$_);
2690: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2691: $_=$u;
2692: if ((s/οξιτεσψ$/ξατψσρ/) && (m/ηξατψσρ$/))
2693: { ($fl,$id)=getflag($dbh,$_);
2694: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2695: $_=$u;
2696: if ((s/οξιτ$/ξατψ/) && (m/ηξατψ$/))
2697: { ($fl,$id)=getflag($dbh,$_);
2698: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2699: $_=$u;
2700: if ((s/οξιτσρ$/ξατψσρ/) && (m/ηξατψσρ$/))
2701: { ($fl,$id)=getflag($dbh,$_);
2702: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2703: $_=$u;
2704: if ((s/οξρτ$/ξατψ/) && (m/ηξατψ$/))
2705: { ($fl,$id)=getflag($dbh,$_);
2706: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2707: $_=$u;
2708: if ((s/οξρτσρ$/ξατψσρ/) && (m/ηξατψσρ$/))
2709: { ($fl,$id)=getflag($dbh,$_);
2710: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2711: $_=$u;
2712: if ((s/ϋυ$/θατψ/) && (m/θατψ$/))
2713: { ($fl,$id)=getflag($dbh,$_);
2714: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2715: $_=$u;
2716: if ((s/ϋυσψ$/θατψσρ/) && (m/θατψσρ$/))
2717: { ($fl,$id)=getflag($dbh,$_);
2718: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2719: $_=$u;
2720: if ((s/ϋεν$/θατψ/) && (m/θατψ$/))
2721: { ($fl,$id)=getflag($dbh,$_);
2722: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2723: $_=$u;
2724: if ((s/ϋενσρ$/θατψσρ/) && (m/θατψσρ$/))
2725: { ($fl,$id)=getflag($dbh,$_);
2726: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2727: $_=$u;
2728: if ((s/ϋεϋψ$/θατψ/) && (m/θατψ$/))
2729: { ($fl,$id)=getflag($dbh,$_);
2730: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2731: $_=$u;
2732: if ((s/ϋεϋψσρ$/θατψσρ/) && (m/θατψσρ$/))
2733: { ($fl,$id)=getflag($dbh,$_);
2734: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2735: $_=$u;
2736: if ((s/ϋετε$/θατψ/) && (m/θατψ$/))
2737: { ($fl,$id)=getflag($dbh,$_);
2738: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2739: $_=$u;
2740: if ((s/ϋετεσψ$/θατψσρ/) && (m/θατψσρ$/))
2741: { ($fl,$id)=getflag($dbh,$_);
2742: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2743: $_=$u;
2744: if ((s/ϋετ$/θατψ/) && (m/θατψ$/))
2745: { ($fl,$id)=getflag($dbh,$_);
2746: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2747: $_=$u;
2748: if ((s/ϋετσρ$/θατψσρ/) && (m/θατψσρ$/))
2749: { ($fl,$id)=getflag($dbh,$_);
2750: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2751: $_=$u;
2752: if ((s/ϋυτ$/θατψ/) && (m/θατψ$/))
2753: { ($fl,$id)=getflag($dbh,$_);
2754: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2755: $_=$u;
2756: if ((s/ϋυτσρ$/θατψσρ/) && (m/θατψσρ$/))
2757: { ($fl,$id)=getflag($dbh,$_);
2758: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2759: $_=$u;
2760: if ((s/τυ$/εστψ/) && (m/ώεστψ$/))
2761: { ($fl,$id)=getflag($dbh,$_);
2762: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2763: $_=$u;
2764: if ((s/τεν$/εστψ/) && (m/ώεστψ$/))
2765: { ($fl,$id)=getflag($dbh,$_);
2766: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2767: $_=$u;
2768: if ((s/τεϋψ$/εστψ/) && (m/ώεστψ$/))
2769: { ($fl,$id)=getflag($dbh,$_);
2770: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2771: $_=$u;
2772: if ((s/τετε$/εστψ/) && (m/ώεστψ$/))
2773: { ($fl,$id)=getflag($dbh,$_);
2774: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2775: $_=$u;
2776: if ((s/τετ$/εστψ/) && (m/ώεστψ$/))
2777: { ($fl,$id)=getflag($dbh,$_);
2778: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2779: $_=$u;
2780: if ((s/τυτ$/εστψ/) && (m/ώεστψ$/))
2781: { ($fl,$id)=getflag($dbh,$_);
2782: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2783: $_=$u;
2784: if ((s/ρδυ$/εστψ/) && (m/σεστψ$/))
2785: { ($fl,$id)=getflag($dbh,$_);
2786: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2787: $_=$u;
2788: if ((s/ρδεν$/εστψ/) && (m/σεστψ$/))
2789: { ($fl,$id)=getflag($dbh,$_);
2790: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2791: $_=$u;
2792: if ((s/ρδεϋψ$/εστψ/) && (m/σεστψ$/))
2793: { ($fl,$id)=getflag($dbh,$_);
2794: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2795: $_=$u;
2796: if ((s/ρδετε$/εστψ/) && (m/σεστψ$/))
2797: { ($fl,$id)=getflag($dbh,$_);
2798: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2799: $_=$u;
2800: if ((s/ρδετ$/εστψ/) && (m/σεστψ$/))
2801: { ($fl,$id)=getflag($dbh,$_);
2802: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2803: $_=$u;
2804: if ((s/ρδυτ$/εστψ/) && (m/σεστψ$/))
2805: { ($fl,$id)=getflag($dbh,$_);
2806: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2807: $_=$u;
2808: if ((s/υ$/τψ/) && (m/μεϊτψ$/))
2809: { ($fl,$id)=getflag($dbh,$_);
2810: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2811: $_=$u;
2812: if ((s/εν$/τψ/) && (m/μεϊτψ$/))
2813: { ($fl,$id)=getflag($dbh,$_);
2814: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2815: $_=$u;
2816: if ((s/εϋψ$/τψ/) && (m/μεϊτψ$/))
2817: { ($fl,$id)=getflag($dbh,$_);
2818: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2819: $_=$u;
2820: if ((s/ετε$/τψ/) && (m/μεϊτψ$/))
2821: { ($fl,$id)=getflag($dbh,$_);
2822: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2823: $_=$u;
2824: if ((s/ετ$/τψ/) && (m/μεϊτψ$/))
2825: { ($fl,$id)=getflag($dbh,$_);
2826: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2827: $_=$u;
2828: if ((s/υτ$/τψ/) && (m/μεϊτψ$/))
2829: { ($fl,$id)=getflag($dbh,$_);
2830: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2831: $_=$u;
2832: if ((s/δυ$/στψ/) && (m/αστψ$/))
2833: { ($fl,$id)=getflag($dbh,$_);
2834: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2835: $_=$u;
2836: if ((s/δυσψ$/στψσρ/) && (m/αστψσρ$/))
2837: { ($fl,$id)=getflag($dbh,$_);
2838: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2839: $_=$u;
2840: if ((s/δεν$/στψ/) && (m/αστψ$/))
2841: { ($fl,$id)=getflag($dbh,$_);
2842: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2843: $_=$u;
2844: if ((s/δενσρ$/στψσρ/) && (m/αστψσρ$/))
2845: { ($fl,$id)=getflag($dbh,$_);
2846: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2847: $_=$u;
2848: if ((s/δεϋψ$/στψ/) && (m/αστψ$/))
2849: { ($fl,$id)=getflag($dbh,$_);
2850: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2851: $_=$u;
2852: if ((s/δεϋψσρ$/στψσρ/) && (m/αστψσρ$/))
2853: { ($fl,$id)=getflag($dbh,$_);
2854: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2855: $_=$u;
2856: if ((s/δετε$/στψ/) && (m/αστψ$/))
2857: { ($fl,$id)=getflag($dbh,$_);
2858: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2859: $_=$u;
2860: if ((s/δετεσψ$/στψσρ/) && (m/αστψσρ$/))
2861: { ($fl,$id)=getflag($dbh,$_);
2862: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2863: $_=$u;
2864: if ((s/δετ$/στψ/) && (m/αστψ$/))
2865: { ($fl,$id)=getflag($dbh,$_);
2866: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2867: $_=$u;
2868: if ((s/δετσρ$/στψσρ/) && (m/αστψσρ$/))
2869: { ($fl,$id)=getflag($dbh,$_);
2870: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2871: $_=$u;
2872: if ((s/δυτ$/στψ/) && (m/αστψ$/))
2873: { ($fl,$id)=getflag($dbh,$_);
2874: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2875: $_=$u;
2876: if ((s/δυτσρ$/στψσρ/) && (m/αστψσρ$/))
2877: { ($fl,$id)=getflag($dbh,$_);
2878: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2879: $_=$u;
2880: if ((s/ξυ$/ρτψ/) && (m/νρτψ$/))
2881: { ($fl,$id)=getflag($dbh,$_);
2882: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2883: $_=$u;
2884: if ((s/ξυσψ$/ρτψσρ/) && (m/νρτψσρ$/))
2885: { ($fl,$id)=getflag($dbh,$_);
2886: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2887: $_=$u;
2888: if ((s/ξεν$/ρτψ/) && (m/νρτψ$/))
2889: { ($fl,$id)=getflag($dbh,$_);
2890: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2891: $_=$u;
2892: if ((s/ξενσρ$/ρτψσρ/) && (m/νρτψσρ$/))
2893: { ($fl,$id)=getflag($dbh,$_);
2894: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2895: $_=$u;
2896: if ((s/ξεϋψ$/ρτψ/) && (m/νρτψ$/))
2897: { ($fl,$id)=getflag($dbh,$_);
2898: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2899: $_=$u;
2900: if ((s/ξεϋψσρ$/ρτψσρ/) && (m/νρτψσρ$/))
2901: { ($fl,$id)=getflag($dbh,$_);
2902: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2903: $_=$u;
2904: if ((s/ξετε$/ρτψ/) && (m/νρτψ$/))
2905: { ($fl,$id)=getflag($dbh,$_);
2906: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2907: $_=$u;
2908: if ((s/ξετεσψ$/ρτψσρ/) && (m/νρτψσρ$/))
2909: { ($fl,$id)=getflag($dbh,$_);
2910: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2911: $_=$u;
2912: if ((s/ξετ$/ρτψ/) && (m/νρτψ$/))
2913: { ($fl,$id)=getflag($dbh,$_);
2914: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2915: $_=$u;
2916: if ((s/ξετσρ$/ρτψσρ/) && (m/νρτψσρ$/))
2917: { ($fl,$id)=getflag($dbh,$_);
2918: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2919: $_=$u;
2920: if ((s/ξυτ$/ρτψ/) && (m/νρτψ$/))
2921: { ($fl,$id)=getflag($dbh,$_);
2922: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2923: $_=$u;
2924: if ((s/ξυτσρ$/ρτψσρ/) && (m/νρτψσρ$/))
2925: { ($fl,$id)=getflag($dbh,$_);
2926: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2927: $_=$u;
2928: if ((s/υ$/ι/) && (m/ςαστι$/))
2929: { ($fl,$id)=getflag($dbh,$_);
2930: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2931: $_=$u;
2932: if ((s/εν$/ι/) && (m/ςαστι$/))
2933: { ($fl,$id)=getflag($dbh,$_);
2934: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2935: $_=$u;
2936: if ((s/εϋψ$/ι/) && (m/ςαστι$/))
2937: { ($fl,$id)=getflag($dbh,$_);
2938: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2939: $_=$u;
2940: if ((s/ετε$/ι/) && (m/ςαστι$/))
2941: { ($fl,$id)=getflag($dbh,$_);
2942: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2943: $_=$u;
2944: if ((s/ετ$/ι/) && (m/ςαστι$/))
2945: { ($fl,$id)=getflag($dbh,$_);
2946: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2947: $_=$u;
2948: if ((s/υτ$/ι/) && (m/ςαστι$/))
2949: { ($fl,$id)=getflag($dbh,$_);
2950: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2951: $_=$u;
2952: if ((s/δυ$/στι/) && (m/χεστι$/))
2953: { ($fl,$id)=getflag($dbh,$_);
2954: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2955: $_=$u;
2956: if ((s/δυσψ$/στισψ/) && (m/χεστισψ$/))
2957: { ($fl,$id)=getflag($dbh,$_);
2958: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2959: $_=$u;
2960: if ((s/δεν$/στι/) && (m/χεστι$/))
2961: { ($fl,$id)=getflag($dbh,$_);
2962: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2963: $_=$u;
2964: if ((s/δενσρ$/στισψ/) && (m/χεστισψ$/))
2965: { ($fl,$id)=getflag($dbh,$_);
2966: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2967: $_=$u;
2968: if ((s/δεϋψ$/στι/) && (m/χεστι$/))
2969: { ($fl,$id)=getflag($dbh,$_);
2970: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2971: $_=$u;
2972: if ((s/δεϋψσρ$/στισψ/) && (m/χεστισψ$/))
2973: { ($fl,$id)=getflag($dbh,$_);
2974: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2975: $_=$u;
2976: if ((s/δετε$/στι/) && (m/χεστι$/))
2977: { ($fl,$id)=getflag($dbh,$_);
2978: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2979: $_=$u;
2980: if ((s/δετεσψ$/στισψ/) && (m/χεστισψ$/))
2981: { ($fl,$id)=getflag($dbh,$_);
2982: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2983: $_=$u;
2984: if ((s/δετ$/στι/) && (m/χεστι$/))
2985: { ($fl,$id)=getflag($dbh,$_);
2986: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2987: $_=$u;
2988: if ((s/δετσρ$/στισψ/) && (m/χεστισψ$/))
2989: { ($fl,$id)=getflag($dbh,$_);
2990: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2991: $_=$u;
2992: if ((s/δυτ$/στι/) && (m/χεστι$/))
2993: { ($fl,$id)=getflag($dbh,$_);
2994: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2995: $_=$u;
2996: if ((s/δυτσρ$/στισψ/) && (m/χεστισψ$/))
2997: { ($fl,$id)=getflag($dbh,$_);
2998: if ($fl && ($fl=~m/Y/)){push @list, $id}}
2999: $_=$u;
3000: if ((s/τυ$/στι/) && (m/μεστι$/))
3001: { ($fl,$id)=getflag($dbh,$_);
3002: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3003: $_=$u;
3004: if ((s/τυσψ$/στισψ/) && (m/μεστισψ$/))
3005: { ($fl,$id)=getflag($dbh,$_);
3006: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3007: $_=$u;
3008: if ((s/τεν$/στι/) && (m/μεστι$/))
3009: { ($fl,$id)=getflag($dbh,$_);
3010: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3011: $_=$u;
3012: if ((s/τενσρ$/στισψ/) && (m/μεστισψ$/))
3013: { ($fl,$id)=getflag($dbh,$_);
3014: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3015: $_=$u;
3016: if ((s/τεϋψ$/στι/) && (m/μεστι$/))
3017: { ($fl,$id)=getflag($dbh,$_);
3018: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3019: $_=$u;
3020: if ((s/τεϋψσρ$/στισψ/) && (m/μεστισψ$/))
3021: { ($fl,$id)=getflag($dbh,$_);
3022: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3023: $_=$u;
3024: if ((s/τετε$/στι/) && (m/μεστι$/))
3025: { ($fl,$id)=getflag($dbh,$_);
3026: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3027: $_=$u;
3028: if ((s/τετεσψ$/στισψ/) && (m/μεστισψ$/))
3029: { ($fl,$id)=getflag($dbh,$_);
3030: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3031: $_=$u;
3032: if ((s/τετ$/στι/) && (m/μεστι$/))
3033: { ($fl,$id)=getflag($dbh,$_);
3034: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3035: $_=$u;
3036: if ((s/τετσρ$/στισψ/) && (m/μεστισψ$/))
3037: { ($fl,$id)=getflag($dbh,$_);
3038: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3039: $_=$u;
3040: if ((s/τυτ$/στι/) && (m/μεστι$/))
3041: { ($fl,$id)=getflag($dbh,$_);
3042: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3043: $_=$u;
3044: if ((s/τυτσρ$/στισψ/) && (m/μεστισψ$/))
3045: { ($fl,$id)=getflag($dbh,$_);
3046: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3047: $_=$u;
3048: if ((s/βυ$/στι/) && (m/ςεστι$/))
3049: { ($fl,$id)=getflag($dbh,$_);
3050: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3051: $_=$u;
3052: if ((s/βεν$/στι/) && (m/ςεστι$/))
3053: { ($fl,$id)=getflag($dbh,$_);
3054: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3055: $_=$u;
3056: if ((s/βεϋψ$/στι/) && (m/ςεστι$/))
3057: { ($fl,$id)=getflag($dbh,$_);
3058: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3059: $_=$u;
3060: if ((s/βετε$/στι/) && (m/ςεστι$/))
3061: { ($fl,$id)=getflag($dbh,$_);
3062: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3063: $_=$u;
3064: if ((s/βετ$/στι/) && (m/ςεστι$/))
3065: { ($fl,$id)=getflag($dbh,$_);
3066: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3067: $_=$u;
3068: if ((s/βυτ$/στι/) && (m/ςεστι$/))
3069: { ($fl,$id)=getflag($dbh,$_);
3070: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3071: $_=$u;
3072: if ((s/ηυ$/ώψ/) && (m/ώψ$/))
3073: { ($fl,$id)=getflag($dbh,$_);
3074: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3075: $_=$u;
3076: if ((s/φεν$/ώψ/) && (m/ώψ$/))
3077: { ($fl,$id)=getflag($dbh,$_);
3078: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3079: $_=$u;
3080: if ((s/φεϋψ$/ώψ/) && (m/ώψ$/))
3081: { ($fl,$id)=getflag($dbh,$_);
3082: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3083: $_=$u;
3084: if ((s/φετε$/ώψ/) && (m/ώψ$/))
3085: { ($fl,$id)=getflag($dbh,$_);
3086: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3087: $_=$u;
3088: if ((s/φετ$/ώψ/) && (m/ώψ$/))
3089: { ($fl,$id)=getflag($dbh,$_);
3090: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3091: $_=$u;
3092: if ((s/ηυτ$/ώψ/) && (m/ώψ$/))
3093: { ($fl,$id)=getflag($dbh,$_);
3094: if ($fl && ($fl=~m/Y/)){push @list, $id}}
3095: $_=$u;
3096: if ((s/κ$/τψ/) && (m/[αερ]τψ$/))
3097: { ($fl,$id)=getflag($dbh,$_);
3098: if ($fl && ($fl=~m/B/)){push @list, $id}}
3099: $_=$u;
3100: if ((s/κσρ$/τψσρ/) && (m/[αερ]τψσρ$/))
3101: { ($fl,$id)=getflag($dbh,$_);
3102: if ($fl && ($fl=~m/B/)){push @list, $id}}
3103: $_=$u;
3104: if ((s/κτε$/τψ/) && (m/[αερ]τψ$/))
3105: { ($fl,$id)=getflag($dbh,$_);
3106: if ($fl && ($fl=~m/B/)){push @list, $id}}
3107: $_=$u;
3108: if ((s/κτεσψ$/τψσρ/) && (m/[αερ]τψσρ$/))
3109: { ($fl,$id)=getflag($dbh,$_);
3110: if ($fl && ($fl=~m/B/)){push @list, $id}}
3111: $_=$u;
3112: if ((s/$/τψ/) && (m/ιτψ$/))
3113: { ($fl,$id)=getflag($dbh,$_);
3114: if ($fl && ($fl=~m/B/)){push @list, $id}}
3115: $_=$u;
3116: if ((s/ε$/ψ/) && (m/ιτψ$/))
3117: { ($fl,$id)=getflag($dbh,$_);
3118: if ($fl && ($fl=~m/B/)){push @list, $id}}
3119: $_=$u;
3120: if ((s/σψ$/τψσρ/) && (m/ιτψσρ$/))
3121: { ($fl,$id)=getflag($dbh,$_);
3122: if ($fl && ($fl=~m/B/)){push @list, $id}}
3123: $_=$u;
3124: if ((s/τεσψ$/τψσρ/) && (m/ιτψσρ$/))
3125: { ($fl,$id)=getflag($dbh,$_);
3126: if ($fl && ($fl=~m/B/)){push @list, $id}}
3127: $_=$u;
3128: if ((s/ι$/οτψ/) && (m/οτψ$/))
3129: { ($fl,$id)=getflag($dbh,$_);
3130: if ($fl && ($fl=~m/B/)){push @list, $id}}
3131: $_=$u;
3132: if ((s/ιτε$/οτψ/) && (m/οτψ$/))
3133: { ($fl,$id)=getflag($dbh,$_);
3134: if ($fl && ($fl=~m/B/)){push @list, $id}}
3135: $_=$u;
3136: if ((s/ισψ$/οτψσρ/) && (m/οτψσρ$/))
3137: { ($fl,$id)=getflag($dbh,$_);
3138: if ($fl && ($fl=~m/B/)){push @list, $id}}
3139: $_=$u;
3140: if ((s/ιτεσψ$/οτψσρ/) && (m/οτψσρ$/))
3141: { ($fl,$id)=getflag($dbh,$_);
3142: if ($fl && ($fl=~m/B/)){push @list, $id}}
3143: $_=$u;
3144: if ((s/ι$/υτψ/) && (m/υτψ$/))
3145: { ($fl,$id)=getflag($dbh,$_);
3146: if ($fl && ($fl=~m/B/)){push @list, $id}}
3147: $_=$u;
3148: if ((s/ιτε$/υτψ/) && (m/υτψ$/))
3149: { ($fl,$id)=getflag($dbh,$_);
3150: if ($fl && ($fl=~m/B/)){push @list, $id}}
3151: $_=$u;
3152: if ((s/ισψ$/υτψσρ/) && (m/υτψσρ$/))
3153: { ($fl,$id)=getflag($dbh,$_);
3154: if ($fl && ($fl=~m/B/)){push @list, $id}}
3155: $_=$u;
3156: if ((s/ιτεσψ$/υτψσρ/) && (m/υτψσρ$/))
3157: { ($fl,$id)=getflag($dbh,$_);
3158: if ($fl && ($fl=~m/B/)){push @list, $id}}
3159: $_=$u;
3160: if ((s/οκ$/ωτψ/) && (m/ωτψ$/))
3161: { ($fl,$id)=getflag($dbh,$_);
3162: if ($fl && ($fl=~m/B/)){push @list, $id}}
3163: $_=$u;
3164: if ((s/οκτε$/ωτψ/) && (m/ωτψ$/))
3165: { ($fl,$id)=getflag($dbh,$_);
3166: if ($fl && ($fl=~m/B/)){push @list, $id}}
3167: $_=$u;
3168: if ((s/οκσρ$/ωτψσρ/) && (m/ωτψσρ$/))
3169: { ($fl,$id)=getflag($dbh,$_);
3170: if ($fl && ($fl=~m/B/)){push @list, $id}}
3171: $_=$u;
3172: if ((s/οκτεσψ$/ωτψσρ/) && (m/ωτψσρ$/))
3173: { ($fl,$id)=getflag($dbh,$_);
3174: if ($fl && ($fl=~m/B/)){push @list, $id}}
3175: $_=$u;
3176: if ((s/υκ$/οχατψ/) && (m/οχατψ$/))
3177: { ($fl,$id)=getflag($dbh,$_);
3178: if ($fl && ($fl=~m/T/)){push @list, $id}}
3179: $_=$u;
3180: if ((s/υκσρ$/οχατψσρ/) && (m/οχατψσρ$/))
3181: { ($fl,$id)=getflag($dbh,$_);
3182: if ($fl && ($fl=~m/T/)){push @list, $id}}
3183: $_=$u;
3184: if ((s/υκτε$/οχατψ/) && (m/οχατψ$/))
3185: { ($fl,$id)=getflag($dbh,$_);
3186: if ($fl && ($fl=~m/T/)){push @list, $id}}
3187: $_=$u;
3188: if ((s/υκτεσψ$/οχατψσρ/) && (m/οχατψσρ$/))
3189: { ($fl,$id)=getflag($dbh,$_);
3190: if ($fl && ($fl=~m/T/)){push @list, $id}}
3191: $_=$u;
3192: if ((s/υκ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
3193: { ($fl,$id)=getflag($dbh,$_);
3194: if ($fl && ($fl=~m/T/)){push @list, $id}}
3195: $_=$u;
3196: if ((s/υκτε$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
3197: { ($fl,$id)=getflag($dbh,$_);
3198: if ($fl && ($fl=~m/T/)){push @list, $id}}
3199: $_=$u;
3200: if ((s/υκσρ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
3201: { ($fl,$id)=getflag($dbh,$_);
3202: if ($fl && ($fl=~m/T/)){push @list, $id}}
3203: $_=$u;
3204: if ((s/υκτεσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
3205: { ($fl,$id)=getflag($dbh,$_);
3206: if ($fl && ($fl=~m/T/)){push @list, $id}}
3207: $_=$u;
3208: if ((s/ΰκ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
3209: { ($fl,$id)=getflag($dbh,$_);
3210: if ($fl && ($fl=~m/T/)){push @list, $id}}
3211: $_=$u;
3212: if ((s/ΰκτε$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
3213: { ($fl,$id)=getflag($dbh,$_);
3214: if ($fl && ($fl=~m/T/)){push @list, $id}}
3215: $_=$u;
3216: if ((s/ΰκσρ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
3217: { ($fl,$id)=getflag($dbh,$_);
3218: if ($fl && ($fl=~m/T/)){push @list, $id}}
3219: $_=$u;
3220: if ((s/ΰκτεσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
3221: { ($fl,$id)=getflag($dbh,$_);
3222: if ($fl && ($fl=~m/T/)){push @list, $id}}
3223: $_=$u;
3224: if ((s/ι$/ατψ/) && (m/[φώ]ατψ$/))
3225: { ($fl,$id)=getflag($dbh,$_);
3226: if ($fl && ($fl=~m/T/)){push @list, $id}}
3227: $_=$u;
3228: if ((s/ισψ$/ατψσρ/) && (m/[φώ]ατψσρ$/))
3229: { ($fl,$id)=getflag($dbh,$_);
3230: if ($fl && ($fl=~m/T/)){push @list, $id}}
3231: $_=$u;
3232: if ((s/ϋι$/σατψ/) && (m/σατψ$/))
3233: { ($fl,$id)=getflag($dbh,$_);
3234: if ($fl && ($fl=~m/T/)){push @list, $id}}
3235: $_=$u;
3236: if ((s/ϋιτε$/σατψ/) && (m/σατψ$/))
3237: { ($fl,$id)=getflag($dbh,$_);
3238: if ($fl && ($fl=~m/T/)){push @list, $id}}
3239: $_=$u;
3240: if ((s/ϋισψ$/σατψσρ/) && (m/σατψσρ$/))
3241: { ($fl,$id)=getflag($dbh,$_);
3242: if ($fl && ($fl=~m/T/)){push @list, $id}}
3243: $_=$u;
3244: if ((s/ϋιτεσψ$/σατψσρ/) && (m/σατψσρ$/))
3245: { ($fl,$id)=getflag($dbh,$_);
3246: if ($fl && ($fl=~m/T/)){push @list, $id}}
3247: $_=$u;
3248: if ((s/κ$/ιτψ/) && (m/[αεο]ιτψ$/))
3249: { ($fl,$id)=getflag($dbh,$_);
3250: if ($fl && ($fl=~m/T/)){push @list, $id}}
3251: $_=$u;
3252: if ((s/κτε$/ιτψ/) && (m/[αεο]ιτψ$/))
3253: { ($fl,$id)=getflag($dbh,$_);
3254: if ($fl && ($fl=~m/T/)){push @list, $id}}
3255: $_=$u;
3256: if ((s/κσρ$/ιτψσρ/) && (m/[αεο]ιτψσρ$/))
3257: { ($fl,$id)=getflag($dbh,$_);
3258: if ($fl && ($fl=~m/T/)){push @list, $id}}
3259: $_=$u;
3260: if ((s/κτεσψ$/ιτψσρ/) && (m/[αεο]ιτψσρ$/))
3261: { ($fl,$id)=getflag($dbh,$_);
3262: if ($fl && ($fl=~m/T/)){push @list, $id}}
3263: $_=$u;
3264: if ((s/ψ$/ιτψ/) && (m/[^αεο]ιτψ$/))
3265: { ($fl,$id)=getflag($dbh,$_);
3266: if ($fl && ($fl=~m/T/)){push @list, $id}}
3267: $_=$u;
3268: if ((s/ψτε$/ιτψ/) && (m/[^αεο]ιτψ$/))
3269: { ($fl,$id)=getflag($dbh,$_);
3270: if ($fl && ($fl=~m/T/)){push @list, $id}}
3271: $_=$u;
3272: if ((s/ψσρ$/ιτψσρ/) && (m/[^αεο]ιτψσρ$/))
3273: { ($fl,$id)=getflag($dbh,$_);
3274: if ($fl && ($fl=~m/T/)){push @list, $id}}
3275: $_=$u;
3276: if ((s/ψτεσψ$/ιτψσρ/) && (m/[^αεο]ιτψσρ$/))
3277: { ($fl,$id)=getflag($dbh,$_);
3278: if ($fl && ($fl=~m/T/)){push @list, $id}}
3279: $_=$u;
3280: if ((s/ψ$/υτψ/) && (m/υτψ$/))
3281: { ($fl,$id)=getflag($dbh,$_);
3282: if ($fl && ($fl=~m/T/)){push @list, $id}}
3283: $_=$u;
3284: if ((s/ψτε$/υτψ/) && (m/υτψ$/))
3285: { ($fl,$id)=getflag($dbh,$_);
3286: if ($fl && ($fl=~m/T/)){push @list, $id}}
3287: $_=$u;
3288: if ((s/ψσρ$/υτψσρ/) && (m/υτψσρ$/))
3289: { ($fl,$id)=getflag($dbh,$_);
3290: if ($fl && ($fl=~m/T/)){push @list, $id}}
3291: $_=$u;
3292: if ((s/ψτεσψ$/υτψσρ/) && (m/υτψσρ$/))
3293: { ($fl,$id)=getflag($dbh,$_);
3294: if ($fl && ($fl=~m/T/)){push @list, $id}}
3295: $_=$u;
3296: if ((s/κ$/ρτψ/) && (m/[αεου]ρτψ$/))
3297: { ($fl,$id)=getflag($dbh,$_);
3298: if ($fl && ($fl=~m/T/)){push @list, $id}}
3299: $_=$u;
3300: if ((s/κτε$/ρτψ/) && (m/[αεου]ρτψ$/))
3301: { ($fl,$id)=getflag($dbh,$_);
3302: if ($fl && ($fl=~m/T/)){push @list, $id}}
3303: $_=$u;
3304: if ((s/κσρ$/ρτψσρ/) && (m/[αεου]ρτψσρ$/))
3305: { ($fl,$id)=getflag($dbh,$_);
3306: if ($fl && ($fl=~m/T/)){push @list, $id}}
3307: $_=$u;
3308: if ((s/κτεσψ$/ρτψσρ/) && (m/[αεου]ρτψσρ$/))
3309: { ($fl,$id)=getflag($dbh,$_);
3310: if ($fl && ($fl=~m/T/)){push @list, $id}}
3311: $_=$u;
3312: if ((s/ι$/ετψ/) && (m/ετψ$/))
3313: { ($fl,$id)=getflag($dbh,$_);
3314: if ($fl && ($fl=~m/T/)){push @list, $id}}
3315: $_=$u;
3316: if ((s/ισψ$/ετψσρ/) && (m/ετψσρ$/))
3317: { ($fl,$id)=getflag($dbh,$_);
3318: if ($fl && ($fl=~m/T/)){push @list, $id}}
3319: $_=$u;
3320: if ((s/ιτε$/ετψ/) && (m/ετψ$/))
3321: { ($fl,$id)=getflag($dbh,$_);
3322: if ($fl && ($fl=~m/T/)){push @list, $id}}
3323: $_=$u;
3324: if ((s/ιτεσψ$/ετψσρ/) && (m/ετψσρ$/))
3325: { ($fl,$id)=getflag($dbh,$_);
3326: if ($fl && ($fl=~m/T/)){push @list, $id}}
3327: $_=$u;
3328: if ((s/ρ$/τψ/) && (m/[αε]τψ$/))
3329: { ($fl,$id)=getflag($dbh,$_);
3330: if ($fl && ($fl=~m/P/)){push @list, $id}}
3331: $_=$u;
3332: if ((s/ρσψ$/τψσρ/) && (m/[αε]τψσρ$/))
3333: { ($fl,$id)=getflag($dbh,$_);
3334: if ($fl && ($fl=~m/P/)){push @list, $id}}
3335: $_=$u;
3336: if ((s/ρ$/τψ/) && (m/[^αεου]ρτψ$/))
3337: { ($fl,$id)=getflag($dbh,$_);
3338: if ($fl && ($fl=~m/P/)){push @list, $id}}
3339: $_=$u;
3340: if ((s/ρσψ$/τψσρ/) && (m/[^αεου]ρτψσρ$/))
3341: { ($fl,$id)=getflag($dbh,$_);
3342: if ($fl && ($fl=~m/P/)){push @list, $id}}
3343: $_=$u;
3344: if ((s/$/τψ/) && (m/[αεου]ρτψ$/))
3345: { ($fl,$id)=getflag($dbh,$_);
3346: if ($fl && ($fl=~m/P/)){push @list, $id}}
3347: $_=$u;
3348: if ((s/σψ$/τψσρ/) && (m/[αεου]ρτψσρ$/))
3349: { ($fl,$id)=getflag($dbh,$_);
3350: if ($fl && ($fl=~m/P/)){push @list, $id}}
3351: $_=$u;
3352: if ((s/ρ$/ιτψ/) && (m/[^φώϋύ]ιτψ$/))
3353: { ($fl,$id)=getflag($dbh,$_);
3354: if ($fl && ($fl=~m/P/)){push @list, $id}}
3355: $_=$u;
3356: if ((s/ρσψ$/ιτψσρ/) && (m/[^φώϋύ]ιτψσρ$/))
3357: { ($fl,$id)=getflag($dbh,$_);
3358: if ($fl && ($fl=~m/P/)){push @list, $id}}
3359: $_=$u;
3360: if ((s/α$/ιτψ/) && (m/[φώϋύ]ιτψ$/))
3361: { ($fl,$id)=getflag($dbh,$_);
3362: if ($fl && ($fl=~m/P/)){push @list, $id}}
3363: $_=$u;
3364: if ((s/ασψ$/ιτψσρ/) && (m/[φώϋύ]ιτψσρ$/))
3365: { ($fl,$id)=getflag($dbh,$_);
3366: if ($fl && ($fl=~m/P/)){push @list, $id}}
3367: $_=$u;
3368: if ((s/ορ$/ωτψ/) && (m/ωτψ$/))
3369: { ($fl,$id)=getflag($dbh,$_);
3370: if ($fl && ($fl=~m/P/)){push @list, $id}}
3371: $_=$u;
3372: if ((s/ορσψ$/ωτψσρ/) && (m/ωτψσρ$/))
3373: { ($fl,$id)=getflag($dbh,$_);
3374: if ($fl && ($fl=~m/P/)){push @list, $id}}
3375: $_=$u;
3376: if ((s/υρ$/εχατψ/) && (m/[φϋύώγ]εχατψ$/))
3377: { ($fl,$id)=getflag($dbh,$_);
3378: if ($fl && ($fl=~m/Q/)){push @list, $id}}
3379: $_=$u;
3380: if ((s/υρσψ$/εχατψσρ/) && (m/[φϋύώγ]εχατψσρ$/))
3381: { ($fl,$id)=getflag($dbh,$_);
3382: if ($fl && ($fl=~m/Q/)){push @list, $id}}
3383: $_=$u;
3384: if ((s/ΰρ$/εχατψ/) && (m/[^φϋύώγ]εχατψ$/))
3385: { ($fl,$id)=getflag($dbh,$_);
3386: if ($fl && ($fl=~m/Q/)){push @list, $id}}
3387: $_=$u;
3388: if ((s/ΰρσψ$/εχατψσρ/) && (m/[^φϋύώγ]εχατψσρ$/))
3389: { ($fl,$id)=getflag($dbh,$_);
3390: if ($fl && ($fl=~m/Q/)){push @list, $id}}
3391: $_=$u;
3392: if ((s/υρ$/οχατψ/) && (m/οχατψ$/))
3393: { ($fl,$id)=getflag($dbh,$_);
3394: if ($fl && ($fl=~m/Q/)){push @list, $id}}
3395: $_=$u;
3396: if ((s/υρσψ$/οχατψσρ/) && (m/οχατψσρ$/))
3397: { ($fl,$id)=getflag($dbh,$_);
3398: if ($fl && ($fl=~m/Q/)){push @list, $id}}
3399: $_=$u;
3400: if ((s/χ$/τψ/) && (m/[αειουωρ]τψ$/))
3401: { ($fl,$id)=getflag($dbh,$_);
3402: if ($fl && ($fl=~m/R/)){push @list, $id}}
3403: $_=$u;
3404: if ((s/χϋισψ$/τψσρ/) && (m/[αειουωρ]τψσρ$/))
3405: { ($fl,$id)=getflag($dbh,$_);
3406: if ($fl && ($fl=~m/R/)){push @list, $id}}
3407: $_=$u;
3408: if ((s/χ$/στψ/) && (m/στψ$/))
3409: { ($fl,$id)=getflag($dbh,$_);
3410: if ($fl && ($fl=~m/R/)){push @list, $id}}
3411: $_=$u;
3412: if ((s/χϋισψ$/στψσρ/) && (m/στψσρ$/))
3413: { ($fl,$id)=getflag($dbh,$_);
3414: if ($fl && ($fl=~m/R/)){push @list, $id}}
3415: $_=$u;
3416: if ((s/ο$/ωκ/) && (m/[χμξςτ]ωκ$/))
3417: { ($fl,$id)=getflag($dbh,$_);
3418: if ($fl && ($fl=~m/Z/)){push @list, $id}}
3419: $_=$u;
3420: if ((s/$/κ/) && (m/[σγ]λικ$/))
3421: { ($fl,$id)=getflag($dbh,$_);
3422: if ($fl && ($fl=~m/Z/)){push @list, $id}}
3423: $_=$u;
3424: if ((s/ε$/ικ/) && (m/ύικ$/))
3425: { ($fl,$id)=getflag($dbh,$_);
3426: if ($fl && ($fl=~m/Z/)){push @list, $id}}
3427: $_=$u;
3428: if ((s/οηο$/ωκ/) && (m/[^γ]ωκ$/))
3429: { ($fl,$id)=getflag($dbh,$_);
3430: if ($fl && ($fl=~m/A/)){push @list, $id}}
3431: $_=$u;
3432: if ((s/εηο$/ωκ/) && (m/γωκ$/))
3433: { ($fl,$id)=getflag($dbh,$_);
3434: if ($fl && ($fl=~m/A/)){push @list, $id}}
3435: $_=$u;
3436: if ((s/ονυ$/ωκ/) && (m/[^γ]ωκ$/))
3437: { ($fl,$id)=getflag($dbh,$_);
3438: if ($fl && ($fl=~m/A/)){push @list, $id}}
3439: $_=$u;
3440: if ((s/ενυ$/ωκ/) && (m/γωκ$/))
3441: { ($fl,$id)=getflag($dbh,$_);
3442: if ($fl && ($fl=~m/A/)){push @list, $id}}
3443: $_=$u;
3444: if ((s/ν$/κ/) && (m/ωκ$/))
3445: { ($fl,$id)=getflag($dbh,$_);
3446: if ($fl && ($fl=~m/A/)){push @list, $id}}
3447: $_=$u;
3448: if ((s/ον$/ωκ/) && (m/[^γ]ωκ$/))
3449: { ($fl,$id)=getflag($dbh,$_);
3450: if ($fl && ($fl=~m/A/)){push @list, $id}}
3451: $_=$u;
3452: if ((s/εν$/ωκ/) && (m/γωκ$/))
3453: { ($fl,$id)=getflag($dbh,$_);
3454: if ($fl && ($fl=~m/A/)){push @list, $id}}
3455: $_=$u;
3456: if ((s/ε$/κ/) && (m/ωκ$/))
3457: { ($fl,$id)=getflag($dbh,$_);
3458: if ($fl && ($fl=~m/A/)){push @list, $id}}
3459: $_=$u;
3460: if ((s/θ$/κ/) && (m/ωκ$/))
3461: { ($fl,$id)=getflag($dbh,$_);
3462: if ($fl && ($fl=~m/A/)){push @list, $id}}
3463: $_=$u;
3464: if ((s/νι$/κ/) && (m/ωκ$/))
3465: { ($fl,$id)=getflag($dbh,$_);
3466: if ($fl && ($fl=~m/A/)){push @list, $id}}
3467: $_=$u;
3468: if ((s/αρ$/ωκ/) && (m/ωκ$/))
3469: { ($fl,$id)=getflag($dbh,$_);
3470: if ($fl && ($fl=~m/A/)){push @list, $id}}
3471: $_=$u;
3472: if ((s/οκ$/ωκ/) && (m/[^γ]ωκ$/))
3473: { ($fl,$id)=getflag($dbh,$_);
3474: if ($fl && ($fl=~m/A/)){push @list, $id}}
3475: $_=$u;
3476: if ((s/οΰ$/ωκ/) && (m/[^γ]ωκ$/))
3477: { ($fl,$id)=getflag($dbh,$_);
3478: if ($fl && ($fl=~m/A/)){push @list, $id}}
3479: $_=$u;
3480: if ((s/εκ$/ωκ/) && (m/γωκ$/))
3481: { ($fl,$id)=getflag($dbh,$_);
3482: if ($fl && ($fl=~m/A/)){push @list, $id}}
3483: $_=$u;
3484: if ((s/υΰ$/ωκ/) && (m/ωκ$/))
3485: { ($fl,$id)=getflag($dbh,$_);
3486: if ($fl && ($fl=~m/A/)){push @list, $id}}
3487: $_=$u;
3488: if ((s/οε$/ωκ/) && (m/[^γ]ωκ$/))
3489: { ($fl,$id)=getflag($dbh,$_);
3490: if ($fl && ($fl=~m/A/)){push @list, $id}}
3491: $_=$u;
3492: if ((s/εε$/ωκ/) && (m/γωκ$/))
3493: { ($fl,$id)=getflag($dbh,$_);
3494: if ($fl && ($fl=~m/A/)){push @list, $id}}
3495: $_=$u;
3496: if ((s/οηο$/ικ/) && (m/[ηλθ]ικ$/))
3497: { ($fl,$id)=getflag($dbh,$_);
3498: if ($fl && ($fl=~m/A/)){push @list, $id}}
3499: $_=$u;
3500: if ((s/ονυ$/ικ/) && (m/[ηλθ]ικ$/))
3501: { ($fl,$id)=getflag($dbh,$_);
3502: if ($fl && ($fl=~m/A/)){push @list, $id}}
3503: $_=$u;
3504: if ((s/ν$/κ/) && (m/[ηλθ]ικ$/))
3505: { ($fl,$id)=getflag($dbh,$_);
3506: if ($fl && ($fl=~m/A/)){push @list, $id}}
3507: $_=$u;
3508: if ((s/ον$/ικ/) && (m/[ηλθ]ικ$/))
3509: { ($fl,$id)=getflag($dbh,$_);
3510: if ($fl && ($fl=~m/A/)){push @list, $id}}
3511: $_=$u;
3512: if ((s/ε$/κ/) && (m/[ηλθ]ικ$/))
3513: { ($fl,$id)=getflag($dbh,$_);
3514: if ($fl && ($fl=~m/A/)){push @list, $id}}
3515: $_=$u;
3516: if ((s/θ$/κ/) && (m/[ηλθ]ικ$/))
3517: { ($fl,$id)=getflag($dbh,$_);
3518: if ($fl && ($fl=~m/A/)){push @list, $id}}
3519: $_=$u;
3520: if ((s/νι$/κ/) && (m/[ηλθ]ικ$/))
3521: { ($fl,$id)=getflag($dbh,$_);
3522: if ($fl && ($fl=~m/A/)){push @list, $id}}
3523: $_=$u;
3524: if ((s/αρ$/ικ/) && (m/[ηλθ]ικ$/))
3525: { ($fl,$id)=getflag($dbh,$_);
3526: if ($fl && ($fl=~m/A/)){push @list, $id}}
3527: $_=$u;
3528: if ((s/οκ$/ικ/) && (m/[ηλθ]ικ$/))
3529: { ($fl,$id)=getflag($dbh,$_);
3530: if ($fl && ($fl=~m/A/)){push @list, $id}}
3531: $_=$u;
3532: if ((s/οΰ$/ικ/) && (m/[ηλθ]ικ$/))
3533: { ($fl,$id)=getflag($dbh,$_);
3534: if ($fl && ($fl=~m/A/)){push @list, $id}}
3535: $_=$u;
3536: if ((s/υΰ$/ικ/) && (m/[ηλθ]ικ$/))
3537: { ($fl,$id)=getflag($dbh,$_);
3538: if ($fl && ($fl=~m/A/)){push @list, $id}}
3539: $_=$u;
3540: if ((s/οε$/ικ/) && (m/[ηλθ]ικ$/))
3541: { ($fl,$id)=getflag($dbh,$_);
3542: if ($fl && ($fl=~m/A/)){push @list, $id}}
3543: $_=$u;
3544: if ((s/εηο$/ικ/) && (m/[φξςϋύώ]ικ$/))
3545: { ($fl,$id)=getflag($dbh,$_);
3546: if ($fl && ($fl=~m/A/)){push @list, $id}}
3547: $_=$u;
3548: if ((s/ενυ$/ικ/) && (m/[φξςϋύώ]ικ$/))
3549: { ($fl,$id)=getflag($dbh,$_);
3550: if ($fl && ($fl=~m/A/)){push @list, $id}}
3551: $_=$u;
3552: if ((s/ν$/κ/) && (m/[φξςϋύώ]ικ$/))
3553: { ($fl,$id)=getflag($dbh,$_);
3554: if ($fl && ($fl=~m/A/)){push @list, $id}}
3555: $_=$u;
3556: if ((s/εν$/ικ/) && (m/[φξςϋύώ]ικ$/))
3557: { ($fl,$id)=getflag($dbh,$_);
3558: if ($fl && ($fl=~m/A/)){push @list, $id}}
3559: $_=$u;
3560: if ((s/ε$/κ/) && (m/[φξςϋύώ]ικ$/))
3561: { ($fl,$id)=getflag($dbh,$_);
3562: if ($fl && ($fl=~m/A/)){push @list, $id}}
3563: $_=$u;
3564: if ((s/θ$/κ/) && (m/[φξςϋύώ]ικ$/))
3565: { ($fl,$id)=getflag($dbh,$_);
3566: if ($fl && ($fl=~m/A/)){push @list, $id}}
3567: $_=$u;
3568: if ((s/νι$/κ/) && (m/[φξςϋύώ]ικ$/))
3569: { ($fl,$id)=getflag($dbh,$_);
3570: if ($fl && ($fl=~m/A/)){push @list, $id}}
3571: $_=$u;
3572: if ((s/εηοσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3573: { ($fl,$id)=getflag($dbh,$_);
3574: if ($fl && ($fl=~m/A/)){push @list, $id}}
3575: $_=$u;
3576: if ((s/ενυσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3577: { ($fl,$id)=getflag($dbh,$_);
3578: if ($fl && ($fl=~m/A/)){push @list, $id}}
3579: $_=$u;
3580: if ((s/ινσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3581: { ($fl,$id)=getflag($dbh,$_);
3582: if ($fl && ($fl=~m/A/)){push @list, $id}}
3583: $_=$u;
3584: if ((s/ενσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3585: { ($fl,$id)=getflag($dbh,$_);
3586: if ($fl && ($fl=~m/A/)){push @list, $id}}
3587: $_=$u;
3588: if ((s/ιεσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3589: { ($fl,$id)=getflag($dbh,$_);
3590: if ($fl && ($fl=~m/A/)){push @list, $id}}
3591: $_=$u;
3592: if ((s/ιθσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3593: { ($fl,$id)=getflag($dbh,$_);
3594: if ($fl && ($fl=~m/A/)){push @list, $id}}
3595: $_=$u;
3596: if ((s/ινισρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3597: { ($fl,$id)=getflag($dbh,$_);
3598: if ($fl && ($fl=~m/A/)){push @list, $id}}
3599: $_=$u;
3600: if ((s/ρρ$/ικ/) && (m/ξικ$/))
3601: { ($fl,$id)=getflag($dbh,$_);
3602: if ($fl && ($fl=~m/A/)){push @list, $id}}
3603: $_=$u;
3604: if ((s/αρ$/ικ/) && (m/[φϋύώ]ικ$/))
3605: { ($fl,$id)=getflag($dbh,$_);
3606: if ($fl && ($fl=~m/A/)){push @list, $id}}
3607: $_=$u;
3608: if ((s/εκ$/ικ/) && (m/[φξϋύώ]ικ$/))
3609: { ($fl,$id)=getflag($dbh,$_);
3610: if ($fl && ($fl=~m/A/)){push @list, $id}}
3611: $_=$u;
3612: if ((s/εΰ$/ικ/) && (m/[φξϋύώ]ικ$/))
3613: { ($fl,$id)=getflag($dbh,$_);
3614: if ($fl && ($fl=~m/A/)){push @list, $id}}
3615: $_=$u;
3616: if ((s/ΰΰ$/ικ/) && (m/ξικ$/))
3617: { ($fl,$id)=getflag($dbh,$_);
3618: if ($fl && ($fl=~m/A/)){push @list, $id}}
3619: $_=$u;
3620: if ((s/υΰ$/ικ/) && (m/[φϋύώ]ικ$/))
3621: { ($fl,$id)=getflag($dbh,$_);
3622: if ($fl && ($fl=~m/A/)){push @list, $id}}
3623: $_=$u;
3624: if ((s/εε$/ικ/) && (m/[φξϋύώ]ικ$/))
3625: { ($fl,$id)=getflag($dbh,$_);
3626: if ($fl && ($fl=~m/A/)){push @list, $id}}
3627: $_=$u;
3628: if ((s/αρσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3629: { ($fl,$id)=getflag($dbh,$_);
3630: if ($fl && ($fl=~m/A/)){push @list, $id}}
3631: $_=$u;
3632: if ((s/εκσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3633: { ($fl,$id)=getflag($dbh,$_);
3634: if ($fl && ($fl=~m/A/)){push @list, $id}}
3635: $_=$u;
3636: if ((s/υΰσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3637: { ($fl,$id)=getflag($dbh,$_);
3638: if ($fl && ($fl=~m/A/)){push @list, $id}}
3639: $_=$u;
3640: if ((s/εεσρ$/ικσρ/) && (m/[ϋύ]ικσρ$/))
3641: { ($fl,$id)=getflag($dbh,$_);
3642: if ($fl && ($fl=~m/A/)){push @list, $id}}
3643: $_=$u;
3644: if ((s/οηο$/οκ/) && (m/οκ$/))
3645: { ($fl,$id)=getflag($dbh,$_);
3646: if ($fl && ($fl=~m/A/)){push @list, $id}}
3647: $_=$u;
3648: if ((s/ονυ$/οκ/) && (m/οκ$/))
3649: { ($fl,$id)=getflag($dbh,$_);
3650: if ($fl && ($fl=~m/A/)){push @list, $id}}
3651: $_=$u;
3652: if ((s/ιν$/οκ/) && (m/[ηφλθϋύώ]οκ$/))
3653: { ($fl,$id)=getflag($dbh,$_);
3654: if ($fl && ($fl=~m/A/)){push @list, $id}}
3655: $_=$u;
3656: if ((s/ων$/οκ/) && (m/[^ηφλθϋύώ]οκ$/))
3657: { ($fl,$id)=getflag($dbh,$_);
3658: if ($fl && ($fl=~m/A/)){push @list, $id}}
3659: $_=$u;
3660: if ((s/ον$/οκ/) && (m/οκ$/))
3661: { ($fl,$id)=getflag($dbh,$_);
3662: if ($fl && ($fl=~m/A/)){push @list, $id}}
3663: $_=$u;
3664: if ((s/ιε$/οκ/) && (m/[ηφλθϋύώ]οκ$/))
3665: { ($fl,$id)=getflag($dbh,$_);
3666: if ($fl && ($fl=~m/A/)){push @list, $id}}
3667: $_=$u;
3668: if ((s/ωε$/οκ/) && (m/[^ηφλθϋύώ]οκ$/))
3669: { ($fl,$id)=getflag($dbh,$_);
3670: if ($fl && ($fl=~m/A/)){push @list, $id}}
3671: $_=$u;
3672: if ((s/ιθ$/οκ/) && (m/[ηφλθϋύώ]οκ$/))
3673: { ($fl,$id)=getflag($dbh,$_);
3674: if ($fl && ($fl=~m/A/)){push @list, $id}}
3675: $_=$u;
3676: if ((s/ωθ$/οκ/) && (m/[^ηφλθϋύώ]οκ$/))
3677: { ($fl,$id)=getflag($dbh,$_);
3678: if ($fl && ($fl=~m/A/)){push @list, $id}}
3679: $_=$u;
3680: if ((s/ινι$/οκ/) && (m/[ηφλθϋύώ]οκ$/))
3681: { ($fl,$id)=getflag($dbh,$_);
3682: if ($fl && ($fl=~m/A/)){push @list, $id}}
3683: $_=$u;
3684: if ((s/ωνι$/οκ/) && (m/[^ηφλθϋύώ]οκ$/))
3685: { ($fl,$id)=getflag($dbh,$_);
3686: if ($fl && ($fl=~m/A/)){push @list, $id}}
3687: $_=$u;
3688: if ((s/αρ$/οκ/) && (m/οκ$/))
3689: { ($fl,$id)=getflag($dbh,$_);
3690: if ($fl && ($fl=~m/A/)){push @list, $id}}
3691: $_=$u;
3692: if ((s/υΰ$/οκ/) && (m/οκ$/))
3693: { ($fl,$id)=getflag($dbh,$_);
3694: if ($fl && ($fl=~m/A/)){push @list, $id}}
3695: $_=$u;
3696: if ((s/οε$/οκ/) && (m/οκ$/))
3697: { ($fl,$id)=getflag($dbh,$_);
3698: if ($fl && ($fl=~m/A/)){push @list, $id}}
3699: $_=$u;
3700: if ((s/οηο$//) && (m/ιξ$/))
3701: { ($fl,$id)=getflag($dbh,$_);
3702: if ($fl && ($fl=~m/A/)){push @list, $id}}
3703: $_=$u;
3704: if ((s/ονυ$//) && (m/ιξ$/))
3705: { ($fl,$id)=getflag($dbh,$_);
3706: if ($fl && ($fl=~m/A/)){push @list, $id}}
3707: $_=$u;
3708: if ((s/ων$//) && (m/ιξ$/))
3709: { ($fl,$id)=getflag($dbh,$_);
3710: if ($fl && ($fl=~m/A/)){push @list, $id}}
3711: $_=$u;
3712: if ((s/ον$//) && (m/ιξ$/))
3713: { ($fl,$id)=getflag($dbh,$_);
3714: if ($fl && ($fl=~m/A/)){push @list, $id}}
3715: $_=$u;
3716: if ((s/α$//) && (m/ιξ$/))
3717: { ($fl,$id)=getflag($dbh,$_);
3718: if ($fl && ($fl=~m/A/)){push @list, $id}}
3719: $_=$u;
3720: if ((s/οκ$//) && (m/ιξ$/))
3721: { ($fl,$id)=getflag($dbh,$_);
3722: if ($fl && ($fl=~m/A/)){push @list, $id}}
3723: $_=$u;
3724: if ((s/υ$//) && (m/ιξ$/))
3725: { ($fl,$id)=getflag($dbh,$_);
3726: if ($fl && ($fl=~m/A/)){push @list, $id}}
3727: $_=$u;
3728: if ((s/ο$//) && (m/ιξ$/))
3729: { ($fl,$id)=getflag($dbh,$_);
3730: if ($fl && ($fl=~m/A/)){push @list, $id}}
3731: $_=$u;
3732: if ((s/ω$//) && (m/ιξ$/))
3733: { ($fl,$id)=getflag($dbh,$_);
3734: if ($fl && ($fl=~m/A/)){push @list, $id}}
3735: $_=$u;
3736: if ((s/ωθ$//) && (m/ιξ$/))
3737: { ($fl,$id)=getflag($dbh,$_);
3738: if ($fl && ($fl=~m/A/)){push @list, $id}}
3739: $_=$u;
3740: if ((s/ωνι$//) && (m/ιξ$/))
3741: { ($fl,$id)=getflag($dbh,$_);
3742: if ($fl && ($fl=~m/A/)){push @list, $id}}
3743: $_=$u;
3744: if ((s/α$//) && (m/χ$/))
3745: { ($fl,$id)=getflag($dbh,$_);
3746: if ($fl && ($fl=~m/A/)){push @list, $id}}
3747: $_=$u;
3748: if ((s/ο$//) && (m/χ$/))
3749: { ($fl,$id)=getflag($dbh,$_);
3750: if ($fl && ($fl=~m/A/)){push @list, $id}}
3751: $_=$u;
3752: if ((s/υ$//) && (m/χ$/))
3753: { ($fl,$id)=getflag($dbh,$_);
3754: if ($fl && ($fl=~m/A/)){push @list, $id}}
3755: $_=$u;
3756: if ((s/οκ$//) && (m/χ$/))
3757: { ($fl,$id)=getflag($dbh,$_);
3758: if ($fl && ($fl=~m/A/)){push @list, $id}}
3759: $_=$u;
3760: if ((s/ον$//) && (m/χ$/))
3761: { ($fl,$id)=getflag($dbh,$_);
3762: if ($fl && ($fl=~m/A/)){push @list, $id}}
3763: $_=$u;
3764: if ((s/ω$//) && (m/χ$/))
3765: { ($fl,$id)=getflag($dbh,$_);
3766: if ($fl && ($fl=~m/A/)){push @list, $id}}
3767: $_=$u;
3768: if ((s/ωθ$//) && (m/χ$/))
3769: { ($fl,$id)=getflag($dbh,$_);
3770: if ($fl && ($fl=~m/A/)){push @list, $id}}
3771: $_=$u;
3772: if ((s/ων$//) && (m/χ$/))
3773: { ($fl,$id)=getflag($dbh,$_);
3774: if ($fl && ($fl=~m/A/)){push @list, $id}}
3775: $_=$u;
3776: if ((s/ωνι$//) && (m/χ$/))
3777: { ($fl,$id)=getflag($dbh,$_);
3778: if ($fl && ($fl=~m/A/)){push @list, $id}}
3779: $_=$u;
3780: if ((s/$/ωκ/) && (m/[^ξ]ωκ$/))
3781: { ($fl,$id)=getflag($dbh,$_);
3782: if ($fl && ($fl=~m/S/)){push @list, $id}}
3783: $_=$u;
3784: if ((s/α$/ωκ/) && (m/[^ξ]ωκ$/))
3785: { ($fl,$id)=getflag($dbh,$_);
3786: if ($fl && ($fl=~m/S/)){push @list, $id}}
3787: $_=$u;
3788: if ((s/ο$/ωκ/) && (m/[^ξ]ωκ$/))
3789: { ($fl,$id)=getflag($dbh,$_);
3790: if ($fl && ($fl=~m/S/)){push @list, $id}}
3791: $_=$u;
3792: if ((s/ω$/ωκ/) && (m/[^ξ]ωκ$/))
3793: { ($fl,$id)=getflag($dbh,$_);
3794: if ($fl && ($fl=~m/S/)){push @list, $id}}
3795: $_=$u;
3796: if ((s/εξ$/ξωκ/) && (m/[^εκμξψ]ξωκ$/))
3797: { ($fl,$id)=getflag($dbh,$_);
3798: if ($fl && ($fl=~m/S/)){push @list, $id}}
3799: $_=$u;
3800: if ((s/$/ωκ/) && (m/εξωκ$/))
3801: { ($fl,$id)=getflag($dbh,$_);
3802: if ($fl && ($fl=~m/S/)){push @list, $id}}
3803: $_=$u;
3804: if ((s/εξ$/κξωκ/) && (m/κξωκ$/))
3805: { ($fl,$id)=getflag($dbh,$_);
3806: if ($fl && ($fl=~m/S/)){push @list, $id}}
3807: $_=$u;
3808: if ((s/οξ$/ξωκ/) && (m/μξωκ$/))
3809: { ($fl,$id)=getflag($dbh,$_);
3810: if ($fl && ($fl=~m/S/)){push @list, $id}}
3811: $_=$u;
3812: if ((s/εξ$/ψξωκ/) && (m/ψξωκ$/))
3813: { ($fl,$id)=getflag($dbh,$_);
3814: if ($fl && ($fl=~m/S/)){push @list, $id}}
3815: $_=$u;
3816: if ((s/ξα$/ξωκ/) && (m/[^ξ]ξωκ$/))
3817: { ($fl,$id)=getflag($dbh,$_);
3818: if ($fl && ($fl=~m/S/)){push @list, $id}}
3819: $_=$u;
3820: if ((s/ξο$/ξωκ/) && (m/[^ξ]ξωκ$/))
3821: { ($fl,$id)=getflag($dbh,$_);
3822: if ($fl && ($fl=~m/S/)){push @list, $id}}
3823: $_=$u;
3824: if ((s/ξω$/ξωκ/) && (m/[^ξ]ξωκ$/))
3825: { ($fl,$id)=getflag($dbh,$_);
3826: if ($fl && ($fl=~m/S/)){push @list, $id}}
3827: $_=$u;
3828: if ((s/ολ$/λικ/) && (m/[^αεικουωψ]λικ$/))
3829: { ($fl,$id)=getflag($dbh,$_);
3830: if ($fl && ($fl=~m/S/)){push @list, $id}}
3831: $_=$u;
3832: if ((s/$/ικ/) && (m/[αειουω]λικ$/))
3833: { ($fl,$id)=getflag($dbh,$_);
3834: if ($fl && ($fl=~m/S/)){push @list, $id}}
3835: $_=$u;
3836: if ((s/ελ$/κλικ/) && (m/κλικ$/))
3837: { ($fl,$id)=getflag($dbh,$_);
3838: if ($fl && ($fl=~m/S/)){push @list, $id}}
3839: $_=$u;
3840: if ((s/ελ$/ψλικ/) && (m/ψλικ$/))
3841: { ($fl,$id)=getflag($dbh,$_);
3842: if ($fl && ($fl=~m/S/)){push @list, $id}}
3843: $_=$u;
3844: if ((s/$/ικ/) && (m/[ηφώθύ]ικ$/))
3845: { ($fl,$id)=getflag($dbh,$_);
3846: if ($fl && ($fl=~m/S/)){push @list, $id}}
3847: $_=$u;
3848: if ((s/α$/ικ/) && (m/[ηφλθώύ]ικ$/))
3849: { ($fl,$id)=getflag($dbh,$_);
3850: if ($fl && ($fl=~m/S/)){push @list, $id}}
3851: $_=$u;
3852: if ((s/ο$/ικ/) && (m/[ηλθ]ικ$/))
3853: { ($fl,$id)=getflag($dbh,$_);
3854: if ($fl && ($fl=~m/S/)){push @list, $id}}
3855: $_=$u;
3856: if ((s/ε$/ικ/) && (m/[φώύ]ικ$/))
3857: { ($fl,$id)=getflag($dbh,$_);
3858: if ($fl && ($fl=~m/S/)){push @list, $id}}
3859: $_=$u;
3860: if ((s/ι$/ικ/) && (m/[ηφλθώύ]ικ$/))
3861: { ($fl,$id)=getflag($dbh,$_);
3862: if ($fl && ($fl=~m/S/)){push @list, $id}}
3863: $_=$u;
3864: if ((s/$/οκ/) && (m/οκ$/))
3865: { ($fl,$id)=getflag($dbh,$_);
3866: if ($fl && ($fl=~m/S/)){push @list, $id}}
3867: $_=$u;
3868: if ((s/α$/οκ/) && (m/οκ$/))
3869: { ($fl,$id)=getflag($dbh,$_);
3870: if ($fl && ($fl=~m/S/)){push @list, $id}}
3871: $_=$u;
3872: if ((s/ο$/οκ/) && (m/οκ$/))
3873: { ($fl,$id)=getflag($dbh,$_);
3874: if ($fl && ($fl=~m/S/)){push @list, $id}}
3875: $_=$u;
3876: if ((s/ω$/οκ/) && (m/[^ηθ]οκ$/))
3877: { ($fl,$id)=getflag($dbh,$_);
3878: if ($fl && ($fl=~m/S/)){push @list, $id}}
3879: $_=$u;
3880: if ((s/ι$/οκ/) && (m/[ηθ]οκ$/))
3881: { ($fl,$id)=getflag($dbh,$_);
3882: if ($fl && ($fl=~m/S/)){push @list, $id}}
3883: $_=$u;
3884: if ((s/$/ξωκ/) && (m/ξξωκ$/))
3885: { ($fl,$id)=getflag($dbh,$_);
3886: if ($fl && ($fl=~m/S/)){push @list, $id}}
3887: $_=$u;
3888: if ((s/α$/ξωκ/) && (m/ξξωκ$/))
3889: { ($fl,$id)=getflag($dbh,$_);
3890: if ($fl && ($fl=~m/S/)){push @list, $id}}
3891: $_=$u;
3892: if ((s/ο$/ξωκ/) && (m/ξξωκ$/))
3893: { ($fl,$id)=getflag($dbh,$_);
3894: if ($fl && ($fl=~m/S/)){push @list, $id}}
3895: $_=$u;
3896: if ((s/ω$/ξωκ/) && (m/ξξωκ$/))
3897: { ($fl,$id)=getflag($dbh,$_);
3898: if ($fl && ($fl=~m/S/)){push @list, $id}}
3899: $_=$u;
3900: if ((s/α$/ωκ/) && (m/ξξωκ$/))
3901: { ($fl,$id)=getflag($dbh,$_);
3902: if ($fl && ($fl=~m/X/)){push @list, $id}}
3903: $_=$u;
3904: if ((s/ο$/ωκ/) && (m/ξξωκ$/))
3905: { ($fl,$id)=getflag($dbh,$_);
3906: if ($fl && ($fl=~m/X/)){push @list, $id}}
3907: $_=$u;
3908: if ((s/ω$/ωκ/) && (m/ξξωκ$/))
3909: { ($fl,$id)=getflag($dbh,$_);
3910: if ($fl && ($fl=~m/X/)){push @list, $id}}
3911: $_=$u;
3912: if ((s/εε$/ωκ/) && (m/ωκ$/))
3913: { ($fl,$id)=getflag($dbh,$_);
3914: if ($fl && ($fl=~m/E/)){push @list, $id}}
3915: $_=$u;
3916: if ((s/εκ$/ωκ/) && (m/ωκ$/))
3917: { ($fl,$id)=getflag($dbh,$_);
3918: if ($fl && ($fl=~m/E/)){push @list, $id}}
3919: $_=$u;
3920: if ((s/κ$/ε/) && (m/εε$/))
3921: { ($fl,$id)=getflag($dbh,$_);
3922: if ($fl && ($fl=~m/E/)){push @list, $id}}
3923: $_=$u;
3924: if ((s/ρ$/ψ/) && (m/ψ$/))
3925: { ($fl,$id)=getflag($dbh,$_);
3926: if ($fl && ($fl=~m/E/)){push @list, $id}}
3927: $_=$u;
3928: if ((s/ΰ$/ψ/) && (m/ψ$/))
3929: { ($fl,$id)=getflag($dbh,$_);
3930: if ($fl && ($fl=~m/E/)){push @list, $id}}
3931: $_=$u;
3932: if ((s/εν$/ψ/) && (m/ψ$/))
3933: { ($fl,$id)=getflag($dbh,$_);
3934: if ($fl && ($fl=~m/E/)){push @list, $id}}
3935: $_=$u;
3936: if ((s/ε$/ψ/) && (m/ψ$/))
3937: { ($fl,$id)=getflag($dbh,$_);
3938: if ($fl && ($fl=~m/E/)){push @list, $id}}
3939: $_=$u;
3940: if ((s/ι$/ρ/) && (m/ρ$/))
3941: { ($fl,$id)=getflag($dbh,$_);
3942: if ($fl && ($fl=~m/E/)){push @list, $id}}
3943: $_=$u;
3944: if ((s/ε$/ρ/) && (m/[^ι]ρ$/))
3945: { ($fl,$id)=getflag($dbh,$_);
3946: if ($fl && ($fl=~m/E/)){push @list, $id}}
3947: $_=$u;
3948: if ((s/ΰ$/ρ/) && (m/ρ$/))
3949: { ($fl,$id)=getflag($dbh,$_);
3950: if ($fl && ($fl=~m/E/)){push @list, $id}}
3951: $_=$u;
3952: if ((s/εκ$/ρ/) && (m/ρ$/))
3953: { ($fl,$id)=getflag($dbh,$_);
3954: if ($fl && ($fl=~m/E/)){push @list, $id}}
3955: $_=$u;
3956: if ((s/εΰ$/ρ/) && (m/ρ$/))
3957: { ($fl,$id)=getflag($dbh,$_);
3958: if ($fl && ($fl=~m/E/)){push @list, $id}}
3959: $_=$u;
3960: if ((s/ω$/α/) && (m/[^ηφλθώϋύ]α$/))
3961: { ($fl,$id)=getflag($dbh,$_);
3962: if ($fl && ($fl=~m/I/)){push @list, $id}}
3963: $_=$u;
3964: if ((s/ι$/α/) && (m/[ηφλθώϋύ]α$/))
3965: { ($fl,$id)=getflag($dbh,$_);
3966: if ($fl && ($fl=~m/I/)){push @list, $id}}
3967: $_=$u;
3968: if ((s/ε$/α/) && (m/α$/))
3969: { ($fl,$id)=getflag($dbh,$_);
3970: if ($fl && ($fl=~m/I/)){push @list, $id}}
3971: $_=$u;
3972: if ((s/υ$/α/) && (m/α$/))
3973: { ($fl,$id)=getflag($dbh,$_);
3974: if ($fl && ($fl=~m/I/)){push @list, $id}}
3975: $_=$u;
3976: if ((s/οκ$/α/) && (m/[^φγώϋύ]α$/))
3977: { ($fl,$id)=getflag($dbh,$_);
3978: if ($fl && ($fl=~m/I/)){push @list, $id}}
3979: $_=$u;
3980: if ((s/οΰ$/α/) && (m/[^φγώϋύ]α$/))
3981: { ($fl,$id)=getflag($dbh,$_);
3982: if ($fl && ($fl=~m/I/)){push @list, $id}}
3983: $_=$u;
3984: if ((s/εκ$/α/) && (m/[φγώϋύ]α$/))
3985: { ($fl,$id)=getflag($dbh,$_);
3986: if ($fl && ($fl=~m/I/)){push @list, $id}}
3987: $_=$u;
3988: if ((s/εΰ$/α/) && (m/[φγώϋύ]α$/))
3989: { ($fl,$id)=getflag($dbh,$_);
3990: if ($fl && ($fl=~m/I/)){push @list, $id}}
3991: $_=$u;
3992: if ((s/$/α/) && (m/[^λ]α$/))
3993: { ($fl,$id)=getflag($dbh,$_);
3994: if ($fl && ($fl=~m/I/)){push @list, $id}}
3995: $_=$u;
3996: if ((s/ολ$/λα/) && (m/[^αεφικουγώϋψωΰρ]λα$/))
3997: { ($fl,$id)=getflag($dbh,$_);
3998: if ($fl && ($fl=~m/I/)){push @list, $id}}
3999: $_=$u;
4000: if ((s/λ$/λα/) && (m/[αειουωΰρ]λα$/))
4001: { ($fl,$id)=getflag($dbh,$_);
4002: if ($fl && ($fl=~m/I/)){push @list, $id}}
4003: $_=$u;
4004: if ((s/ελ$/λα/) && (m/[φγώϋ]λα$/))
4005: { ($fl,$id)=getflag($dbh,$_);
4006: if ($fl && ($fl=~m/I/)){push @list, $id}}
4007: $_=$u;
4008: if ((s/ελ$/κλα/) && (m/κλα$/))
4009: { ($fl,$id)=getflag($dbh,$_);
4010: if ($fl && ($fl=~m/I/)){push @list, $id}}
4011: $_=$u;
4012: if ((s/ελ$/ψλα/) && (m/ψλα$/))
4013: { ($fl,$id)=getflag($dbh,$_);
4014: if ($fl && ($fl=~m/I/)){push @list, $id}}
4015: $_=$u;
4016: if ((s/ν$//) && (m/α$/))
4017: { ($fl,$id)=getflag($dbh,$_);
4018: if ($fl && ($fl=~m/I/)){push @list, $id}}
4019: $_=$u;
4020: if ((s/νι$//) && (m/α$/))
4021: { ($fl,$id)=getflag($dbh,$_);
4022: if ($fl && ($fl=~m/I/)){push @list, $id}}
4023: $_=$u;
4024: if ((s/θ$//) && (m/α$/))
4025: { ($fl,$id)=getflag($dbh,$_);
4026: if ($fl && ($fl=~m/I/)){push @list, $id}}
4027: $_=$u;
4028: if ((s/ι$/ρ/) && (m/ρ$/))
4029: { ($fl,$id)=getflag($dbh,$_);
4030: if ($fl && ($fl=~m/I/)){push @list, $id}}
4031: $_=$u;
4032: if ((s/ε$/ρ/) && (m/[^ι]ρ$/))
4033: { ($fl,$id)=getflag($dbh,$_);
4034: if ($fl && ($fl=~m/I/)){push @list, $id}}
4035: $_=$u;
4036: if ((s/ΰ$/ρ/) && (m/ρ$/))
4037: { ($fl,$id)=getflag($dbh,$_);
4038: if ($fl && ($fl=~m/I/)){push @list, $id}}
4039: $_=$u;
4040: if ((s/εκ$/ρ/) && (m/ρ$/))
4041: { ($fl,$id)=getflag($dbh,$_);
4042: if ($fl && ($fl=~m/I/)){push @list, $id}}
4043: $_=$u;
4044: if ((s/εΰ$/ρ/) && (m/ρ$/))
4045: { ($fl,$id)=getflag($dbh,$_);
4046: if ($fl && ($fl=~m/I/)){push @list, $id}}
4047: $_=$u;
4048: if ((s/κ$/ρ/) && (m/[ειυ]ρ$/))
4049: { ($fl,$id)=getflag($dbh,$_);
4050: if ($fl && ($fl=~m/I/)){push @list, $id}}
4051: $_=$u;
4052: if ((s/εξ$/ξρ/) && (m/[^αεϊικουωψ]ξρ$/))
4053: { ($fl,$id)=getflag($dbh,$_);
4054: if ($fl && ($fl=~m/I/)){push @list, $id}}
4055: $_=$u;
4056: if ((s/ψ$/ρ/) && (m/[αειουω]ξρ$/))
4057: { ($fl,$id)=getflag($dbh,$_);
4058: if ($fl && ($fl=~m/I/)){push @list, $id}}
4059: $_=$u;
4060: if ((s/εξ$/κξρ/) && (m/κξρ$/))
4061: { ($fl,$id)=getflag($dbh,$_);
4062: if ($fl && ($fl=~m/I/)){push @list, $id}}
4063: $_=$u;
4064: if ((s/εξ$/ψξρ/) && (m/ψξρ$/))
4065: { ($fl,$id)=getflag($dbh,$_);
4066: if ($fl && ($fl=~m/I/)){push @list, $id}}
4067: $_=$u;
4068: if ((s/ν$//) && (m/ρ$/))
4069: { ($fl,$id)=getflag($dbh,$_);
4070: if ($fl && ($fl=~m/I/)){push @list, $id}}
4071: $_=$u;
4072: if ((s/νι$//) && (m/ρ$/))
4073: { ($fl,$id)=getflag($dbh,$_);
4074: if ($fl && ($fl=~m/I/)){push @list, $id}}
4075: $_=$u;
4076: if ((s/θ$//) && (m/ρ$/))
4077: { ($fl,$id)=getflag($dbh,$_);
4078: if ($fl && ($fl=~m/I/)){push @list, $id}}
4079: $_=$u;
4080: if ((s/ω$/α/) && (m/[^ηφλθώϋύ]α$/))
4081: { ($fl,$id)=getflag($dbh,$_);
4082: if ($fl && ($fl=~m/H/)){push @list, $id}}
4083: $_=$u;
4084: if ((s/ι$/α/) && (m/[ηφλθώϋύ]α$/))
4085: { ($fl,$id)=getflag($dbh,$_);
4086: if ($fl && ($fl=~m/H/)){push @list, $id}}
4087: $_=$u;
4088: if ((s/ε$/α/) && (m/α$/))
4089: { ($fl,$id)=getflag($dbh,$_);
4090: if ($fl && ($fl=~m/H/)){push @list, $id}}
4091: $_=$u;
4092: if ((s/υ$/α/) && (m/α$/))
4093: { ($fl,$id)=getflag($dbh,$_);
4094: if ($fl && ($fl=~m/H/)){push @list, $id}}
4095: $_=$u;
4096: if ((s/οκ$/α/) && (m/[^φγώϋύ]α$/))
4097: { ($fl,$id)=getflag($dbh,$_);
4098: if ($fl && ($fl=~m/H/)){push @list, $id}}
4099: $_=$u;
4100: if ((s/οΰ$/α/) && (m/[^φγώϋύ]α$/))
4101: { ($fl,$id)=getflag($dbh,$_);
4102: if ($fl && ($fl=~m/H/)){push @list, $id}}
4103: $_=$u;
4104: if ((s/εκ$/α/) && (m/[φγώϋύ]α$/))
4105: { ($fl,$id)=getflag($dbh,$_);
4106: if ($fl && ($fl=~m/H/)){push @list, $id}}
4107: $_=$u;
4108: if ((s/εΰ$/α/) && (m/[φγώϋύ]α$/))
4109: { ($fl,$id)=getflag($dbh,$_);
4110: if ($fl && ($fl=~m/H/)){push @list, $id}}
4111: $_=$u;
4112: if ((s/ι$/ρ/) && (m/ρ$/))
4113: { ($fl,$id)=getflag($dbh,$_);
4114: if ($fl && ($fl=~m/H/)){push @list, $id}}
4115: $_=$u;
4116: if ((s/ε$/ρ/) && (m/[^ι]ρ$/))
4117: { ($fl,$id)=getflag($dbh,$_);
4118: if ($fl && ($fl=~m/H/)){push @list, $id}}
4119: $_=$u;
4120: if ((s/ΰ$/ρ/) && (m/ρ$/))
4121: { ($fl,$id)=getflag($dbh,$_);
4122: if ($fl && ($fl=~m/H/)){push @list, $id}}
4123: $_=$u;
4124: if ((s/εκ$/ρ/) && (m/ρ$/))
4125: { ($fl,$id)=getflag($dbh,$_);
4126: if ($fl && ($fl=~m/H/)){push @list, $id}}
4127: $_=$u;
4128: if ((s/εΰ$/ρ/) && (m/ρ$/))
4129: { ($fl,$id)=getflag($dbh,$_);
4130: if ($fl && ($fl=~m/H/)){push @list, $id}}
4131: $_=$u;
4132: if ((s/α$//) && (m/[^εκοψ]$/))
4133: { ($fl,$id)=getflag($dbh,$_);
4134: if ($fl && ($fl=~m/K/)){push @list, $id}}
4135: $_=$u;
4136: if ((s/υ$//) && (m/[^εκοψ]$/))
4137: { ($fl,$id)=getflag($dbh,$_);
4138: if ($fl && ($fl=~m/K/)){push @list, $id}}
4139: $_=$u;
4140: if ((s/ον$//) && (m/[^εφκογώϋύψ]$/))
4141: { ($fl,$id)=getflag($dbh,$_);
4142: if ($fl && ($fl=~m/K/)){push @list, $id}}
4143: $_=$u;
4144: if ((s/ε$//) && (m/[^εκοψ]$/))
4145: { ($fl,$id)=getflag($dbh,$_);
4146: if ($fl && ($fl=~m/K/)){push @list, $id}}
4147: $_=$u;
4148: if ((s/ω$//) && (m/[^ηεφκλοθώϋύψ]$/))
4149: { ($fl,$id)=getflag($dbh,$_);
4150: if ($fl && ($fl=~m/K/)){push @list, $id}}
4151: $_=$u;
4152: if ((s/ι$//) && (m/[ηφλθώϋύ]$/))
4153: { ($fl,$id)=getflag($dbh,$_);
4154: if ($fl && ($fl=~m/K/)){push @list, $id}}
4155: $_=$u;
4156: if ((s/εκ$//) && (m/[φώϋύ]$/))
4157: { ($fl,$id)=getflag($dbh,$_);
4158: if ($fl && ($fl=~m/K/)){push @list, $id}}
4159: $_=$u;
4160: if ((s/οχ$//) && (m/[^εφκογώϋύψ]$/))
4161: { ($fl,$id)=getflag($dbh,$_);
4162: if ($fl && ($fl=~m/K/)){push @list, $id}}
4163: $_=$u;
4164: if ((s/αν$//) && (m/[^εκοψ]$/))
4165: { ($fl,$id)=getflag($dbh,$_);
4166: if ($fl && ($fl=~m/K/)){push @list, $id}}
4167: $_=$u;
4168: if ((s/ανι$//) && (m/[^εκοψ]$/))
4169: { ($fl,$id)=getflag($dbh,$_);
4170: if ($fl && ($fl=~m/K/)){push @list, $id}}
4171: $_=$u;
4172: if ((s/αθ$//) && (m/[^εκοψ]$/))
4173: { ($fl,$id)=getflag($dbh,$_);
4174: if ($fl && ($fl=~m/K/)){push @list, $id}}
4175: $_=$u;
4176: if ((s/ρ$/κ/) && (m/κ$/))
4177: { ($fl,$id)=getflag($dbh,$_);
4178: if ($fl && ($fl=~m/K/)){push @list, $id}}
4179: $_=$u;
4180: if ((s/ΰ$/κ/) && (m/κ$/))
4181: { ($fl,$id)=getflag($dbh,$_);
4182: if ($fl && ($fl=~m/K/)){push @list, $id}}
4183: $_=$u;
4184: if ((s/εν$/κ/) && (m/κ$/))
4185: { ($fl,$id)=getflag($dbh,$_);
4186: if ($fl && ($fl=~m/K/)){push @list, $id}}
4187: $_=$u;
4188: if ((s/ε$/κ/) && (m/[^ι]κ$/))
4189: { ($fl,$id)=getflag($dbh,$_);
4190: if ($fl && ($fl=~m/K/)){push @list, $id}}
4191: $_=$u;
4192: if ((s/ι$/κ/) && (m/ικ$/))
4193: { ($fl,$id)=getflag($dbh,$_);
4194: if ($fl && ($fl=~m/K/)){push @list, $id}}
4195: $_=$u;
4196: if ((s/ι$/κ/) && (m/[αεουΰρ]κ$/))
4197: { ($fl,$id)=getflag($dbh,$_);
4198: if ($fl && ($fl=~m/K/)){push @list, $id}}
4199: $_=$u;
4200: if ((s/εχ$/κ/) && (m/κ$/))
4201: { ($fl,$id)=getflag($dbh,$_);
4202: if ($fl && ($fl=~m/K/)){push @list, $id}}
4203: $_=$u;
4204: if ((s/ρν$/κ/) && (m/κ$/))
4205: { ($fl,$id)=getflag($dbh,$_);
4206: if ($fl && ($fl=~m/K/)){push @list, $id}}
4207: $_=$u;
4208: if ((s/ρνι$/κ/) && (m/κ$/))
4209: { ($fl,$id)=getflag($dbh,$_);
4210: if ($fl && ($fl=~m/K/)){push @list, $id}}
4211: $_=$u;
4212: if ((s/ρθ$/κ/) && (m/κ$/))
4213: { ($fl,$id)=getflag($dbh,$_);
4214: if ($fl && ($fl=~m/K/)){push @list, $id}}
4215: $_=$u;
4216: if ((s/ρ$/ψ/) && (m/ψ$/))
4217: { ($fl,$id)=getflag($dbh,$_);
4218: if ($fl && ($fl=~m/K/)){push @list, $id}}
4219: $_=$u;
4220: if ((s/ΰ$/ψ/) && (m/ψ$/))
4221: { ($fl,$id)=getflag($dbh,$_);
4222: if ($fl && ($fl=~m/K/)){push @list, $id}}
4223: $_=$u;
4224: if ((s/εν$/ψ/) && (m/ψ$/))
4225: { ($fl,$id)=getflag($dbh,$_);
4226: if ($fl && ($fl=~m/K/)){push @list, $id}}
4227: $_=$u;
4228: if ((s/ε$/ψ/) && (m/ψ$/))
4229: { ($fl,$id)=getflag($dbh,$_);
4230: if ($fl && ($fl=~m/K/)){push @list, $id}}
4231: $_=$u;
4232: if ((s/ι$/ψ/) && (m/ψ$/))
4233: { ($fl,$id)=getflag($dbh,$_);
4234: if ($fl && ($fl=~m/K/)){push @list, $id}}
4235: $_=$u;
4236: if ((s/εκ$/ψ/) && (m/ψ$/))
4237: { ($fl,$id)=getflag($dbh,$_);
4238: if ($fl && ($fl=~m/K/)){push @list, $id}}
4239: $_=$u;
4240: if ((s/ρν$/ψ/) && (m/ψ$/))
4241: { ($fl,$id)=getflag($dbh,$_);
4242: if ($fl && ($fl=~m/K/)){push @list, $id}}
4243: $_=$u;
4244: if ((s/ρνι$/ψ/) && (m/ψ$/))
4245: { ($fl,$id)=getflag($dbh,$_);
4246: if ($fl && ($fl=~m/K/)){push @list, $id}}
4247: $_=$u;
4248: if ((s/ρθ$/ψ/) && (m/ψ$/))
4249: { ($fl,$id)=getflag($dbh,$_);
4250: if ($fl && ($fl=~m/K/)){push @list, $id}}
4251: $_=$u;
4252: if ((s/ρ$/ε/) && (m/[^φγϋύ]ε$/))
4253: { ($fl,$id)=getflag($dbh,$_);
4254: if ($fl && ($fl=~m/K/)){push @list, $id}}
4255: $_=$u;
4256: if ((s/α$/ε/) && (m/[φγϋύ]ε$/))
4257: { ($fl,$id)=getflag($dbh,$_);
4258: if ($fl && ($fl=~m/K/)){push @list, $id}}
4259: $_=$u;
4260: if ((s/ΰ$/ε/) && (m/[^φγϋύ]ε$/))
4261: { ($fl,$id)=getflag($dbh,$_);
4262: if ($fl && ($fl=~m/K/)){push @list, $id}}
4263: $_=$u;
4264: if ((s/υ$/ε/) && (m/[φγϋύ]ε$/))
4265: { ($fl,$id)=getflag($dbh,$_);
4266: if ($fl && ($fl=~m/K/)){push @list, $id}}
4267: $_=$u;
4268: if ((s/ν$//) && (m/ε$/))
4269: { ($fl,$id)=getflag($dbh,$_);
4270: if ($fl && ($fl=~m/K/)){push @list, $id}}
4271: $_=$u;
4272: if ((s/ι$/ε/) && (m/ιε$/))
4273: { ($fl,$id)=getflag($dbh,$_);
4274: if ($fl && ($fl=~m/K/)){push @list, $id}}
4275: $_=$u;
4276: if ((s/εκ$/ε/) && (m/[^φιγύψ]ε$/))
4277: { ($fl,$id)=getflag($dbh,$_);
4278: if ($fl && ($fl=~m/K/)){push @list, $id}}
4279: $_=$u;
4280: if ((s/$/ε/) && (m/[φύ]ε$/))
4281: { ($fl,$id)=getflag($dbh,$_);
4282: if ($fl && ($fl=~m/K/)){push @list, $id}}
4283: $_=$u;
4284: if ((s/κ$/ε/) && (m/ιε$/))
4285: { ($fl,$id)=getflag($dbh,$_);
4286: if ($fl && ($fl=~m/K/)){push @list, $id}}
4287: $_=$u;
4288: if ((s/ικ$/ψε/) && (m/ψε$/))
4289: { ($fl,$id)=getflag($dbh,$_);
4290: if ($fl && ($fl=~m/K/)){push @list, $id}}
4291: $_=$u;
4292: if ((s/ρν$/ε/) && (m/[^φγϋύ]ε$/))
4293: { ($fl,$id)=getflag($dbh,$_);
4294: if ($fl && ($fl=~m/K/)){push @list, $id}}
4295: $_=$u;
4296: if ((s/αν$/ε/) && (m/[φγϋύ]ε$/))
4297: { ($fl,$id)=getflag($dbh,$_);
4298: if ($fl && ($fl=~m/K/)){push @list, $id}}
4299: $_=$u;
4300: if ((s/ρνι$/ε/) && (m/[^φγϋύ]ε$/))
4301: { ($fl,$id)=getflag($dbh,$_);
4302: if ($fl && ($fl=~m/K/)){push @list, $id}}
4303: $_=$u;
4304: if ((s/ανι$/ε/) && (m/[φγϋύ]ε$/))
4305: { ($fl,$id)=getflag($dbh,$_);
4306: if ($fl && ($fl=~m/K/)){push @list, $id}}
4307: $_=$u;
4308: if ((s/ρθ$/ε/) && (m/[^φγϋύ]ε$/))
4309: { ($fl,$id)=getflag($dbh,$_);
4310: if ($fl && ($fl=~m/K/)){push @list, $id}}
4311: $_=$u;
4312: if ((s/αθ$/ε/) && (m/[φγϋύ]ε$/))
4313: { ($fl,$id)=getflag($dbh,$_);
4314: if ($fl && ($fl=~m/K/)){push @list, $id}}
4315: $_=$u;
4316: if ((s/α$/ο/) && (m/ο$/))
4317: { ($fl,$id)=getflag($dbh,$_);
4318: if ($fl && ($fl=~m/K/)){push @list, $id}}
4319: $_=$u;
4320: if ((s/υ$/ο/) && (m/ο$/))
4321: { ($fl,$id)=getflag($dbh,$_);
4322: if ($fl && ($fl=~m/K/)){push @list, $id}}
4323: $_=$u;
4324: if ((s/ν$//) && (m/ο$/))
4325: { ($fl,$id)=getflag($dbh,$_);
4326: if ($fl && ($fl=~m/K/)){push @list, $id}}
4327: $_=$u;
4328: if ((s/ε$/ο/) && (m/ο$/))
4329: { ($fl,$id)=getflag($dbh,$_);
4330: if ($fl && ($fl=~m/K/)){push @list, $id}}
4331: $_=$u;
4332: if ((s/ι$/ο/) && (m/[ιώϋ]λο$/))
4333: { ($fl,$id)=getflag($dbh,$_);
4334: if ($fl && ($fl=~m/K/)){push @list, $id}}
4335: $_=$u;
4336: if ((s/$/ο/) && (m/[χηδστ]ο$/))
4337: { ($fl,$id)=getflag($dbh,$_);
4338: if ($fl && ($fl=~m/K/)){push @list, $id}}
4339: $_=$u;
4340: if ((s/αν$/ο/) && (m/ο$/))
4341: { ($fl,$id)=getflag($dbh,$_);
4342: if ($fl && ($fl=~m/K/)){push @list, $id}}
4343: $_=$u;
4344: if ((s/ανι$/ο/) && (m/ο$/))
4345: { ($fl,$id)=getflag($dbh,$_);
4346: if ($fl && ($fl=~m/K/)){push @list, $id}}
4347: $_=$u;
4348: if ((s/αθ$/ο/) && (m/ο$/))
4349: { ($fl,$id)=getflag($dbh,$_);
4350: if ($fl && ($fl=~m/K/)){push @list, $id}}
4351: $_=$u;
4352: if ((s/α$//) && (m/[^εκοψ]$/))
4353: { ($fl,$id)=getflag($dbh,$_);
4354: if ($fl && ($fl=~m/J/)){push @list, $id}}
4355: $_=$u;
4356: if ((s/υ$//) && (m/[^εκοψ]$/))
4357: { ($fl,$id)=getflag($dbh,$_);
4358: if ($fl && ($fl=~m/J/)){push @list, $id}}
4359: $_=$u;
4360: if ((s/ον$//) && (m/[^εφκογώϋύψ]$/))
4361: { ($fl,$id)=getflag($dbh,$_);
4362: if ($fl && ($fl=~m/J/)){push @list, $id}}
4363: $_=$u;
4364: if ((s/ε$//) && (m/[^εκοψ]$/))
4365: { ($fl,$id)=getflag($dbh,$_);
4366: if ($fl && ($fl=~m/J/)){push @list, $id}}
4367: $_=$u;
4368: if ((s/ρ$/κ/) && (m/κ$/))
4369: { ($fl,$id)=getflag($dbh,$_);
4370: if ($fl && ($fl=~m/J/)){push @list, $id}}
4371: $_=$u;
4372: if ((s/ΰ$/κ/) && (m/κ$/))
4373: { ($fl,$id)=getflag($dbh,$_);
4374: if ($fl && ($fl=~m/J/)){push @list, $id}}
4375: $_=$u;
4376: if ((s/εν$/κ/) && (m/κ$/))
4377: { ($fl,$id)=getflag($dbh,$_);
4378: if ($fl && ($fl=~m/J/)){push @list, $id}}
4379: $_=$u;
4380: if ((s/ε$/κ/) && (m/[^ι]κ$/))
4381: { ($fl,$id)=getflag($dbh,$_);
4382: if ($fl && ($fl=~m/J/)){push @list, $id}}
4383: $_=$u;
4384: if ((s/ι$/κ/) && (m/ικ$/))
4385: { ($fl,$id)=getflag($dbh,$_);
4386: if ($fl && ($fl=~m/J/)){push @list, $id}}
4387: $_=$u;
4388: if ((s/ρ$/ψ/) && (m/ψ$/))
4389: { ($fl,$id)=getflag($dbh,$_);
4390: if ($fl && ($fl=~m/J/)){push @list, $id}}
4391: $_=$u;
4392: if ((s/ΰ$/ψ/) && (m/ψ$/))
4393: { ($fl,$id)=getflag($dbh,$_);
4394: if ($fl && ($fl=~m/J/)){push @list, $id}}
4395: $_=$u;
4396: if ((s/εν$/ψ/) && (m/ψ$/))
4397: { ($fl,$id)=getflag($dbh,$_);
4398: if ($fl && ($fl=~m/J/)){push @list, $id}}
4399: $_=$u;
4400: if ((s/ε$/ψ/) && (m/ψ$/))
4401: { ($fl,$id)=getflag($dbh,$_);
4402: if ($fl && ($fl=~m/J/)){push @list, $id}}
4403: $_=$u;
4404: if ((s/ρ$/ε/) && (m/[^φγϋύ]ε$/))
4405: { ($fl,$id)=getflag($dbh,$_);
4406: if ($fl && ($fl=~m/J/)){push @list, $id}}
4407: $_=$u;
4408: if ((s/α$/ε/) && (m/[φγϋύ]ε$/))
4409: { ($fl,$id)=getflag($dbh,$_);
4410: if ($fl && ($fl=~m/J/)){push @list, $id}}
4411: $_=$u;
4412: if ((s/ΰ$/ε/) && (m/[^φγϋύ]ε$/))
4413: { ($fl,$id)=getflag($dbh,$_);
4414: if ($fl && ($fl=~m/J/)){push @list, $id}}
4415: $_=$u;
4416: if ((s/υ$/ε/) && (m/[φγϋύ]ε$/))
4417: { ($fl,$id)=getflag($dbh,$_);
4418: if ($fl && ($fl=~m/J/)){push @list, $id}}
4419: $_=$u;
4420: if ((s/ν$//) && (m/ε$/))
4421: { ($fl,$id)=getflag($dbh,$_);
4422: if ($fl && ($fl=~m/J/)){push @list, $id}}
4423: $_=$u;
4424: if ((s/ι$/ε/) && (m/ιε$/))
4425: { ($fl,$id)=getflag($dbh,$_);
4426: if ($fl && ($fl=~m/J/)){push @list, $id}}
4427: $_=$u;
4428: if ((s/α$/ο/) && (m/ο$/))
4429: { ($fl,$id)=getflag($dbh,$_);
4430: if ($fl && ($fl=~m/J/)){push @list, $id}}
4431: $_=$u;
4432: if ((s/υ$/ο/) && (m/ο$/))
4433: { ($fl,$id)=getflag($dbh,$_);
4434: if ($fl && ($fl=~m/J/)){push @list, $id}}
4435: $_=$u;
4436: if ((s/ν$//) && (m/ο$/))
4437: { ($fl,$id)=getflag($dbh,$_);
4438: if ($fl && ($fl=~m/J/)){push @list, $id}}
4439: $_=$u;
4440: if ((s/ε$/ο/) && (m/ο$/))
4441: { ($fl,$id)=getflag($dbh,$_);
4442: if ($fl && ($fl=~m/J/)){push @list, $id}}
4443: $_=$u;
4444: if ((s/ι$/ψ/) && (m/ψ$/))
4445: { ($fl,$id)=getflag($dbh,$_);
4446: if ($fl && ($fl=~m/N/)){push @list, $id}}
4447: $_=$u;
4448: if ((s/ΰ$//) && (m/ψ$/))
4449: { ($fl,$id)=getflag($dbh,$_);
4450: if ($fl && ($fl=~m/N/)){push @list, $id}}
4451: $_=$u;
4452: if ((s/εκ$/ψ/) && (m/ψ$/))
4453: { ($fl,$id)=getflag($dbh,$_);
4454: if ($fl && ($fl=~m/N/)){push @list, $id}}
4455: $_=$u;
4456: if ((s/αν$/ψ/) && (m/[φώϋύ]ψ$/))
4457: { ($fl,$id)=getflag($dbh,$_);
4458: if ($fl && ($fl=~m/N/)){push @list, $id}}
4459: $_=$u;
4460: if ((s/ρν$/ψ/) && (m/[^φώϋύ]ψ$/))
4461: { ($fl,$id)=getflag($dbh,$_);
4462: if ($fl && ($fl=~m/N/)){push @list, $id}}
4463: $_=$u;
4464: if ((s/ανι$/ψ/) && (m/[φώϋύ]ψ$/))
4465: { ($fl,$id)=getflag($dbh,$_);
4466: if ($fl && ($fl=~m/N/)){push @list, $id}}
4467: $_=$u;
4468: if ((s/ρνι$/ψ/) && (m/[^φώϋύ]ψ$/))
4469: { ($fl,$id)=getflag($dbh,$_);
4470: if ($fl && ($fl=~m/N/)){push @list, $id}}
4471: $_=$u;
4472: if ((s/αθ$/ψ/) && (m/[φώϋύ]ψ$/))
4473: { ($fl,$id)=getflag($dbh,$_);
4474: if ($fl && ($fl=~m/N/)){push @list, $id}}
4475: $_=$u;
4476: if ((s/ρθ$/ψ/) && (m/[^φώϋύ]ψ$/))
4477: { ($fl,$id)=getflag($dbh,$_);
4478: if ($fl && ($fl=~m/N/)){push @list, $id}}
4479: $_=$u;
4480: if ((s/α$//) && (m/[^ψ]$/))
4481: { ($fl,$id)=getflag($dbh,$_);
4482: if ($fl && ($fl=~m/N/)){push @list, $id}}
4483: $_=$u;
4484: if ((s/υ$//) && (m/[^ψ]$/))
4485: { ($fl,$id)=getflag($dbh,$_);
4486: if ($fl && ($fl=~m/N/)){push @list, $id}}
4487: $_=$u;
4488: if ((s/ον$//) && (m/[^φγώϋύψ]$/))
4489: { ($fl,$id)=getflag($dbh,$_);
4490: if ($fl && ($fl=~m/N/)){push @list, $id}}
4491: $_=$u;
4492: if ((s/ε$//) && (m/[^ψ]$/))
4493: { ($fl,$id)=getflag($dbh,$_);
4494: if ($fl && ($fl=~m/N/)){push @list, $id}}
4495: $_=$u;
4496: if ((s/οχ$//) && (m/[^φγώϋύψ]$/))
4497: { ($fl,$id)=getflag($dbh,$_);
4498: if ($fl && ($fl=~m/N/)){push @list, $id}}
4499: $_=$u;
4500: if ((s/αν$//) && (m/[^ψ]$/))
4501: { ($fl,$id)=getflag($dbh,$_);
4502: if ($fl && ($fl=~m/N/)){push @list, $id}}
4503: $_=$u;
4504: if ((s/ανι$//) && (m/[^ψ]$/))
4505: { ($fl,$id)=getflag($dbh,$_);
4506: if ($fl && ($fl=~m/N/)){push @list, $id}}
4507: $_=$u;
4508: if ((s/αθ$//) && (m/[^ψ]$/))
4509: { ($fl,$id)=getflag($dbh,$_);
4510: if ($fl && ($fl=~m/N/)){push @list, $id}}
4511: $_=$u;
4512: if ((s/ι$/ψ/) && (m/ψ$/))
4513: { ($fl,$id)=getflag($dbh,$_);
4514: if ($fl && ($fl=~m/F/)){push @list, $id}}
4515: $_=$u;
4516: if ((s/ΰ$//) && (m/ψ$/))
4517: { ($fl,$id)=getflag($dbh,$_);
4518: if ($fl && ($fl=~m/F/)){push @list, $id}}
4519: $_=$u;
4520: if ((s/λα$/ολ/) && (m/ξολ$/))
4521: { ($fl,$id)=getflag($dbh,$_);
4522: if ($fl && ($fl=~m/F/)){push @list, $id}}
4523: $_=$u;
4524: if ((s/λυ$/ολ/) && (m/ξολ$/))
4525: { ($fl,$id)=getflag($dbh,$_);
4526: if ($fl && ($fl=~m/F/)){push @list, $id}}
4527: $_=$u;
4528: if ((s/λον$/ολ/) && (m/ξολ$/))
4529: { ($fl,$id)=getflag($dbh,$_);
4530: if ($fl && ($fl=~m/F/)){push @list, $id}}
4531: $_=$u;
4532: if ((s/λε$/ολ/) && (m/ξολ$/))
4533: { ($fl,$id)=getflag($dbh,$_);
4534: if ($fl && ($fl=~m/F/)){push @list, $id}}
4535: $_=$u;
4536: if ((s/ρτα$/εξολ/) && (m/εξολ$/))
4537: { ($fl,$id)=getflag($dbh,$_);
4538: if ($fl && ($fl=~m/F/)){push @list, $id}}
4539: $_=$u;
4540: if ((s/ατα$/οξολ/) && (m/οξολ$/))
4541: { ($fl,$id)=getflag($dbh,$_);
4542: if ($fl && ($fl=~m/F/)){push @list, $id}}
4543: $_=$u;
4544: if ((s/ρτ$/εξολ/) && (m/εξολ$/))
4545: { ($fl,$id)=getflag($dbh,$_);
4546: if ($fl && ($fl=~m/F/)){push @list, $id}}
4547: $_=$u;
4548: if ((s/ατ$/οξολ/) && (m/οξολ$/))
4549: { ($fl,$id)=getflag($dbh,$_);
4550: if ($fl && ($fl=~m/F/)){push @list, $id}}
4551: $_=$u;
4552: if ((s/ρταν$/εξολ/) && (m/εξολ$/))
4553: { ($fl,$id)=getflag($dbh,$_);
4554: if ($fl && ($fl=~m/F/)){push @list, $id}}
4555: $_=$u;
4556: if ((s/αταν$/οξολ/) && (m/οξολ$/))
4557: { ($fl,$id)=getflag($dbh,$_);
4558: if ($fl && ($fl=~m/F/)){push @list, $id}}
4559: $_=$u;
4560: if ((s/ρτανι$/εξολ/) && (m/εξολ$/))
4561: { ($fl,$id)=getflag($dbh,$_);
4562: if ($fl && ($fl=~m/F/)){push @list, $id}}
4563: $_=$u;
4564: if ((s/ατανι$/οξολ/) && (m/οξολ$/))
4565: { ($fl,$id)=getflag($dbh,$_);
4566: if ($fl && ($fl=~m/F/)){push @list, $id}}
4567: $_=$u;
4568: if ((s/ρταθ$/εξολ/) && (m/εξολ$/))
4569: { ($fl,$id)=getflag($dbh,$_);
4570: if ($fl && ($fl=~m/F/)){push @list, $id}}
4571: $_=$u;
4572: if ((s/αταθ$/οξολ/) && (m/οξολ$/))
4573: { ($fl,$id)=getflag($dbh,$_);
4574: if ($fl && ($fl=~m/F/)){push @list, $id}}
4575: $_=$u;
4576: if ((s/ψεηο$/ικ/) && (m/ικ$/))
4577: { ($fl,$id)=getflag($dbh,$_);
4578: if ($fl && ($fl=~m/O/)){push @list, $id}}
4579: $_=$u;
4580: if ((s/ψενυ$/ικ/) && (m/ικ$/))
4581: { ($fl,$id)=getflag($dbh,$_);
4582: if ($fl && ($fl=~m/O/)){push @list, $id}}
4583: $_=$u;
4584: if ((s/ψιν$/ικ/) && (m/ικ$/))
4585: { ($fl,$id)=getflag($dbh,$_);
4586: if ($fl && ($fl=~m/O/)){push @list, $id}}
4587: $_=$u;
4588: if ((s/ψεν$/ικ/) && (m/ικ$/))
4589: { ($fl,$id)=getflag($dbh,$_);
4590: if ($fl && ($fl=~m/O/)){push @list, $id}}
4591: $_=$u;
4592: if ((s/ψρ$/ικ/) && (m/ικ$/))
4593: { ($fl,$id)=getflag($dbh,$_);
4594: if ($fl && ($fl=~m/O/)){push @list, $id}}
4595: $_=$u;
4596: if ((s/ψεκ$/ικ/) && (m/ικ$/))
4597: { ($fl,$id)=getflag($dbh,$_);
4598: if ($fl && ($fl=~m/O/)){push @list, $id}}
4599: $_=$u;
4600: if ((s/ψΰ$/ικ/) && (m/ικ$/))
4601: { ($fl,$id)=getflag($dbh,$_);
4602: if ($fl && ($fl=~m/O/)){push @list, $id}}
4603: $_=$u;
4604: if ((s/ψε$/ικ/) && (m/ικ$/))
4605: { ($fl,$id)=getflag($dbh,$_);
4606: if ($fl && ($fl=~m/O/)){push @list, $id}}
4607: $_=$u;
4608: if ((s/ψι$/ικ/) && (m/ικ$/))
4609: { ($fl,$id)=getflag($dbh,$_);
4610: if ($fl && ($fl=~m/O/)){push @list, $id}}
4611: $_=$u;
4612: if ((s/ψιθ$/ικ/) && (m/ικ$/))
4613: { ($fl,$id)=getflag($dbh,$_);
4614: if ($fl && ($fl=~m/O/)){push @list, $id}}
4615: $_=$u;
4616: if ((s/ψινι$/ικ/) && (m/ικ$/))
4617: { ($fl,$id)=getflag($dbh,$_);
4618: if ($fl && ($fl=~m/O/)){push @list, $id}}
4619: $_=$u;
4620: if ((s/ξρ$/εξψ/) && (m/εξψ$/))
4621: { ($fl,$id)=getflag($dbh,$_);
4622: if ($fl && ($fl=~m/O/)){push @list, $id}}
4623: $_=$u;
4624: if ((s/ξΰ$/εξψ/) && (m/εξψ$/))
4625: { ($fl,$id)=getflag($dbh,$_);
4626: if ($fl && ($fl=~m/O/)){push @list, $id}}
4627: $_=$u;
4628: if ((s/ξεν$/εξψ/) && (m/εξψ$/))
4629: { ($fl,$id)=getflag($dbh,$_);
4630: if ($fl && ($fl=~m/O/)){push @list, $id}}
4631: $_=$u;
4632: if ((s/ξε$/εξψ/) && (m/εξψ$/))
4633: { ($fl,$id)=getflag($dbh,$_);
4634: if ($fl && ($fl=~m/O/)){push @list, $id}}
4635: $_=$u;
4636: if ((s/ξι$/εξψ/) && (m/εξψ$/))
4637: { ($fl,$id)=getflag($dbh,$_);
4638: if ($fl && ($fl=~m/O/)){push @list, $id}}
4639: $_=$u;
4640: if ((s/ξεκ$/εξψ/) && (m/εξψ$/))
4641: { ($fl,$id)=getflag($dbh,$_);
4642: if ($fl && ($fl=~m/O/)){push @list, $id}}
4643: $_=$u;
4644: if ((s/ξρν$/εξψ/) && (m/εξψ$/))
4645: { ($fl,$id)=getflag($dbh,$_);
4646: if ($fl && ($fl=~m/O/)){push @list, $id}}
4647: $_=$u;
4648: if ((s/ξρνι$/εξψ/) && (m/εξψ$/))
4649: { ($fl,$id)=getflag($dbh,$_);
4650: if ($fl && ($fl=~m/O/)){push @list, $id}}
4651: $_=$u;
4652: if ((s/ξρθ$/εξψ/) && (m/εξψ$/))
4653: { ($fl,$id)=getflag($dbh,$_);
4654: if ($fl && ($fl=~m/O/)){push @list, $id}}
4655: $_=$u;
4656: if ((s/λα$/ολ/) && (m/ολ$/))
4657: { ($fl,$id)=getflag($dbh,$_);
4658: if ($fl && ($fl=~m/O/)){push @list, $id}}
4659: $_=$u;
4660: if ((s/λυ$/ολ/) && (m/ολ$/))
4661: { ($fl,$id)=getflag($dbh,$_);
4662: if ($fl && ($fl=~m/O/)){push @list, $id}}
4663: $_=$u;
4664: if ((s/λον$/ολ/) && (m/ολ$/))
4665: { ($fl,$id)=getflag($dbh,$_);
4666: if ($fl && ($fl=~m/O/)){push @list, $id}}
4667: $_=$u;
4668: if ((s/λε$/ολ/) && (m/ολ$/))
4669: { ($fl,$id)=getflag($dbh,$_);
4670: if ($fl && ($fl=~m/O/)){push @list, $id}}
4671: $_=$u;
4672: if ((s/λι$/ολ/) && (m/ολ$/))
4673: { ($fl,$id)=getflag($dbh,$_);
4674: if ($fl && ($fl=~m/O/)){push @list, $id}}
4675: $_=$u;
4676: if ((s/λοχ$/ολ/) && (m/ολ$/))
4677: { ($fl,$id)=getflag($dbh,$_);
4678: if ($fl && ($fl=~m/O/)){push @list, $id}}
4679: $_=$u;
4680: if ((s/λαν$/ολ/) && (m/ολ$/))
4681: { ($fl,$id)=getflag($dbh,$_);
4682: if ($fl && ($fl=~m/O/)){push @list, $id}}
4683: $_=$u;
4684: if ((s/λανι$/ολ/) && (m/ολ$/))
4685: { ($fl,$id)=getflag($dbh,$_);
4686: if ($fl && ($fl=~m/O/)){push @list, $id}}
4687: $_=$u;
4688: if ((s/λαθ$/ολ/) && (m/ολ$/))
4689: { ($fl,$id)=getflag($dbh,$_);
4690: if ($fl && ($fl=~m/O/)){push @list, $id}}
4691: $_=$u;
4692: if ((s/τρ$/οτψ/) && (m/οτψ$/))
4693: { ($fl,$id)=getflag($dbh,$_);
4694: if ($fl && ($fl=~m/O/)){push @list, $id}}
4695: $_=$u;
4696: if ((s/τΰ$/οτψ/) && (m/οτψ$/))
4697: { ($fl,$id)=getflag($dbh,$_);
4698: if ($fl && ($fl=~m/O/)){push @list, $id}}
4699: $_=$u;
4700: if ((s/τεν$/οτψ/) && (m/οτψ$/))
4701: { ($fl,$id)=getflag($dbh,$_);
4702: if ($fl && ($fl=~m/O/)){push @list, $id}}
4703: $_=$u;
4704: if ((s/τε$/οτψ/) && (m/οτψ$/))
4705: { ($fl,$id)=getflag($dbh,$_);
4706: if ($fl && ($fl=~m/O/)){push @list, $id}}
4707: $_=$u;
4708: if ((s/τι$/οτψ/) && (m/οτψ$/))
4709: { ($fl,$id)=getflag($dbh,$_);
4710: if ($fl && ($fl=~m/O/)){push @list, $id}}
4711: $_=$u;
4712: if ((s/τεκ$/οτψ/) && (m/οτψ$/))
4713: { ($fl,$id)=getflag($dbh,$_);
4714: if ($fl && ($fl=~m/O/)){push @list, $id}}
4715: $_=$u;
4716: if ((s/τρν$/οτψ/) && (m/οτψ$/))
4717: { ($fl,$id)=getflag($dbh,$_);
4718: if ($fl && ($fl=~m/O/)){push @list, $id}}
4719: $_=$u;
4720: if ((s/τρνι$/οτψ/) && (m/οτψ$/))
4721: { ($fl,$id)=getflag($dbh,$_);
4722: if ($fl && ($fl=~m/O/)){push @list, $id}}
4723: $_=$u;
4724: if ((s/τρθ$/οτψ/) && (m/οτψ$/))
4725: { ($fl,$id)=getflag($dbh,$_);
4726: if ($fl && ($fl=~m/O/)){push @list, $id}}
4727: $_=$u;
4728: if ((s/γα$/εγ/) && (m/[^αειομ]εγ$/))
4729: { ($fl,$id)=getflag($dbh,$_);
4730: if ($fl && ($fl=~m/O/)){push @list, $id}}
4731: $_=$u;
4732: if ((s/κγα$/εγ/) && (m/[αειο]εγ$/))
4733: { ($fl,$id)=getflag($dbh,$_);
4734: if ($fl && ($fl=~m/O/)){push @list, $id}}
4735: $_=$u;
4736: if ((s/ψγα$/εγ/) && (m/μεγ$/))
4737: { ($fl,$id)=getflag($dbh,$_);
4738: if ($fl && ($fl=~m/O/)){push @list, $id}}
4739: $_=$u;
4740: if ((s/γυ$/εγ/) && (m/[^αειομ]εγ$/))
4741: { ($fl,$id)=getflag($dbh,$_);
4742: if ($fl && ($fl=~m/O/)){push @list, $id}}
4743: $_=$u;
4744: if ((s/κγυ$/εγ/) && (m/[αειο]εγ$/))
4745: { ($fl,$id)=getflag($dbh,$_);
4746: if ($fl && ($fl=~m/O/)){push @list, $id}}
4747: $_=$u;
4748: if ((s/ψγυ$/εγ/) && (m/μεγ$/))
4749: { ($fl,$id)=getflag($dbh,$_);
4750: if ($fl && ($fl=~m/O/)){push @list, $id}}
4751: $_=$u;
4752: if ((s/κγεν$/εγ/) && (m/[αει]εγ$/))
4753: { ($fl,$id)=getflag($dbh,$_);
4754: if ($fl && ($fl=~m/O/)){push @list, $id}}
4755: $_=$u;
4756: if ((s/γε$/εγ/) && (m/[^αειομ]εγ$/))
4757: { ($fl,$id)=getflag($dbh,$_);
4758: if ($fl && ($fl=~m/O/)){push @list, $id}}
4759: $_=$u;
4760: if ((s/κγε$/εγ/) && (m/[αειο]εγ$/))
4761: { ($fl,$id)=getflag($dbh,$_);
4762: if ($fl && ($fl=~m/O/)){push @list, $id}}
4763: $_=$u;
4764: if ((s/ψγε$/εγ/) && (m/μεγ$/))
4765: { ($fl,$id)=getflag($dbh,$_);
4766: if ($fl && ($fl=~m/O/)){push @list, $id}}
4767: $_=$u;
4768: if ((s/γω$/εγ/) && (m/[^αειομ]εγ$/))
4769: { ($fl,$id)=getflag($dbh,$_);
4770: if ($fl && ($fl=~m/O/)){push @list, $id}}
4771: $_=$u;
4772: if ((s/κγω$/εγ/) && (m/[αειο]εγ$/))
4773: { ($fl,$id)=getflag($dbh,$_);
4774: if ($fl && ($fl=~m/O/)){push @list, $id}}
4775: $_=$u;
4776: if ((s/ψγω$/εγ/) && (m/μεγ$/))
4777: { ($fl,$id)=getflag($dbh,$_);
4778: if ($fl && ($fl=~m/O/)){push @list, $id}}
4779: $_=$u;
4780: if ((s/εχ$//) && (m/[αξςρ]γ$/))
4781: { ($fl,$id)=getflag($dbh,$_);
4782: if ($fl && ($fl=~m/O/)){push @list, $id}}
4783: $_=$u;
4784: if ((s/κγεχ$/εγ/) && (m/[αει]εγ$/))
4785: { ($fl,$id)=getflag($dbh,$_);
4786: if ($fl && ($fl=~m/O/)){push @list, $id}}
4787: $_=$u;
4788: if ((s/γαν$/εγ/) && (m/[^αειομ]εγ$/))
4789: { ($fl,$id)=getflag($dbh,$_);
4790: if ($fl && ($fl=~m/O/)){push @list, $id}}
4791: $_=$u;
4792: if ((s/κγαν$/εγ/) && (m/[αειο]εγ$/))
4793: { ($fl,$id)=getflag($dbh,$_);
4794: if ($fl && ($fl=~m/O/)){push @list, $id}}
4795: $_=$u;
4796: if ((s/ψγαν$/εγ/) && (m/μεγ$/))
4797: { ($fl,$id)=getflag($dbh,$_);
4798: if ($fl && ($fl=~m/O/)){push @list, $id}}
4799: $_=$u;
4800: if ((s/γανι$/εγ/) && (m/[^αειομ]εγ$/))
4801: { ($fl,$id)=getflag($dbh,$_);
4802: if ($fl && ($fl=~m/O/)){push @list, $id}}
4803: $_=$u;
4804: if ((s/κγανι$/εγ/) && (m/[αειο]εγ$/))
4805: { ($fl,$id)=getflag($dbh,$_);
4806: if ($fl && ($fl=~m/O/)){push @list, $id}}
4807: $_=$u;
4808: if ((s/ψγανι$/εγ/) && (m/μεγ$/))
4809: { ($fl,$id)=getflag($dbh,$_);
4810: if ($fl && ($fl=~m/O/)){push @list, $id}}
4811: $_=$u;
4812: if ((s/γαθ$/εγ/) && (m/[^αειομ]εγ$/))
4813: { ($fl,$id)=getflag($dbh,$_);
4814: if ($fl && ($fl=~m/O/)){push @list, $id}}
4815: $_=$u;
4816: if ((s/κγαθ$/εγ/) && (m/[αειο]εγ$/))
4817: { ($fl,$id)=getflag($dbh,$_);
4818: if ($fl && ($fl=~m/O/)){push @list, $id}}
4819: $_=$u;
4820: if ((s/ψγαθ$/εγ/) && (m/μεγ$/))
4821: { ($fl,$id)=getflag($dbh,$_);
4822: if ($fl && ($fl=~m/O/)){push @list, $id}}
4823: $_=$u;
4824: if ((s/λα$/ελ/) && (m/[φώϋ]ελ$/))
4825: { ($fl,$id)=getflag($dbh,$_);
4826: if ($fl && ($fl=~m/O/)){push @list, $id}}
4827: $_=$u;
4828: if ((s/ψλα$/ελ/) && (m/[μξς]ελ$/))
4829: { ($fl,$id)=getflag($dbh,$_);
4830: if ($fl && ($fl=~m/O/)){push @list, $id}}
4831: $_=$u;
4832: if ((s/λυ$/ελ/) && (m/[φώϋ]ελ$/))
4833: { ($fl,$id)=getflag($dbh,$_);
4834: if ($fl && ($fl=~m/O/)){push @list, $id}}
4835: $_=$u;
4836: if ((s/ψλυ$/ελ/) && (m/[μξς]ελ$/))
4837: { ($fl,$id)=getflag($dbh,$_);
4838: if ($fl && ($fl=~m/O/)){push @list, $id}}
4839: $_=$u;
4840: if ((s/λον$/ελ/) && (m/[φώϋ]ελ$/))
4841: { ($fl,$id)=getflag($dbh,$_);
4842: if ($fl && ($fl=~m/O/)){push @list, $id}}
4843: $_=$u;
4844: if ((s/ψλον$/ελ/) && (m/[μξς]ελ$/))
4845: { ($fl,$id)=getflag($dbh,$_);
4846: if ($fl && ($fl=~m/O/)){push @list, $id}}
4847: $_=$u;
4848: if ((s/λε$/ελ/) && (m/[φώϋ]ελ$/))
4849: { ($fl,$id)=getflag($dbh,$_);
4850: if ($fl && ($fl=~m/O/)){push @list, $id}}
4851: $_=$u;
4852: if ((s/ψλε$/ελ/) && (m/[μξς]ελ$/))
4853: { ($fl,$id)=getflag($dbh,$_);
4854: if ($fl && ($fl=~m/O/)){push @list, $id}}
4855: $_=$u;
4856: if ((s/λι$/ελ/) && (m/[φώϋ]ελ$/))
4857: { ($fl,$id)=getflag($dbh,$_);
4858: if ($fl && ($fl=~m/O/)){push @list, $id}}
4859: $_=$u;
4860: if ((s/ψλι$/ελ/) && (m/[μξς]ελ$/))
4861: { ($fl,$id)=getflag($dbh,$_);
4862: if ($fl && ($fl=~m/O/)){push @list, $id}}
4863: $_=$u;
4864: if ((s/λοχ$/ελ/) && (m/[φώϋ]ελ$/))
4865: { ($fl,$id)=getflag($dbh,$_);
4866: if ($fl && ($fl=~m/O/)){push @list, $id}}
4867: $_=$u;
4868: if ((s/ψλοχ$/ελ/) && (m/[μξς]ελ$/))
4869: { ($fl,$id)=getflag($dbh,$_);
4870: if ($fl && ($fl=~m/O/)){push @list, $id}}
4871: $_=$u;
4872: if ((s/λαν$/ελ/) && (m/[φώϋ]ελ$/))
4873: { ($fl,$id)=getflag($dbh,$_);
4874: if ($fl && ($fl=~m/O/)){push @list, $id}}
4875: $_=$u;
4876: if ((s/ψλαν$/ελ/) && (m/[μξς]ελ$/))
4877: { ($fl,$id)=getflag($dbh,$_);
4878: if ($fl && ($fl=~m/O/)){push @list, $id}}
4879: $_=$u;
4880: if ((s/λανι$/ελ/) && (m/[φώϋ]ελ$/))
4881: { ($fl,$id)=getflag($dbh,$_);
4882: if ($fl && ($fl=~m/O/)){push @list, $id}}
4883: $_=$u;
4884: if ((s/ψλανι$/ελ/) && (m/[μξς]ελ$/))
4885: { ($fl,$id)=getflag($dbh,$_);
4886: if ($fl && ($fl=~m/O/)){push @list, $id}}
4887: $_=$u;
4888: if ((s/λαθ$/ελ/) && (m/[φώϋ]ελ$/))
4889: { ($fl,$id)=getflag($dbh,$_);
4890: if ($fl && ($fl=~m/O/)){push @list, $id}}
4891: $_=$u;
4892: if ((s/ψλαθ$/ελ/) && (m/[μξς]ελ$/))
4893: { ($fl,$id)=getflag($dbh,$_);
4894: if ($fl && ($fl=~m/O/)){push @list, $id}}
4895: $_=$u;
4896: if ((s/μα$/εμ/) && (m/εμ$/))
4897: { ($fl,$id)=getflag($dbh,$_);
4898: if ($fl && ($fl=~m/O/)){push @list, $id}}
4899: $_=$u;
4900: if ((s/μυ$/εμ/) && (m/εμ$/))
4901: { ($fl,$id)=getflag($dbh,$_);
4902: if ($fl && ($fl=~m/O/)){push @list, $id}}
4903: $_=$u;
4904: if ((s/μον$/εμ/) && (m/εμ$/))
4905: { ($fl,$id)=getflag($dbh,$_);
4906: if ($fl && ($fl=~m/O/)){push @list, $id}}
4907: $_=$u;
4908: if ((s/με$/εμ/) && (m/εμ$/))
4909: { ($fl,$id)=getflag($dbh,$_);
4910: if ($fl && ($fl=~m/O/)){push @list, $id}}
4911: $_=$u;
4912: if ((s/μω$/εμ/) && (m/εμ$/))
4913: { ($fl,$id)=getflag($dbh,$_);
4914: if ($fl && ($fl=~m/O/)){push @list, $id}}
4915: $_=$u;
4916: if ((s/μοχ$/εμ/) && (m/εμ$/))
4917: { ($fl,$id)=getflag($dbh,$_);
4918: if ($fl && ($fl=~m/O/)){push @list, $id}}
4919: $_=$u;
4920: if ((s/μαν$/εμ/) && (m/εμ$/))
4921: { ($fl,$id)=getflag($dbh,$_);
4922: if ($fl && ($fl=~m/O/)){push @list, $id}}
4923: $_=$u;
4924: if ((s/μανι$/εμ/) && (m/εμ$/))
4925: { ($fl,$id)=getflag($dbh,$_);
4926: if ($fl && ($fl=~m/O/)){push @list, $id}}
4927: $_=$u;
4928: if ((s/μαθ$/εμ/) && (m/εμ$/))
4929: { ($fl,$id)=getflag($dbh,$_);
4930: if ($fl && ($fl=~m/O/)){push @list, $id}}
4931: $_=$u;
4932: if ((s/ρν$/ι/) && (m/[αβδειμξοςστ]ι$/))
4933: { ($fl,$id)=getflag($dbh,$_);
4934: if ($fl && ($fl=~m/O/)){push @list, $id}}
4935: $_=$u;
4936: if ((s/αν$/ι/) && (m/[^αβδειμξοςστ]ι$/))
4937: { ($fl,$id)=getflag($dbh,$_);
4938: if ($fl && ($fl=~m/O/)){push @list, $id}}
4939: $_=$u;
4940: if ((s/ρνι$/ι/) && (m/[αβειμξοςσ]ι$/))
4941: { ($fl,$id)=getflag($dbh,$_);
4942: if ($fl && ($fl=~m/O/)){push @list, $id}}
4943: $_=$u;
4944: if ((s/ρνι$/ι/) && (m/[αςσ]τι$/))
4945: { ($fl,$id)=getflag($dbh,$_);
4946: if ($fl && ($fl=~m/O/)){push @list, $id}}
4947: $_=$u;
4948: if ((s/ανι$/ι/) && (m/[^αβδειμξοςστ]ι$/))
4949: { ($fl,$id)=getflag($dbh,$_);
4950: if ($fl && ($fl=~m/O/)){push @list, $id}}
4951: $_=$u;
4952: if ((s/ρθ$/ι/) && (m/[αβδειμξοςστ]ι$/))
4953: { ($fl,$id)=getflag($dbh,$_);
4954: if ($fl && ($fl=~m/O/)){push @list, $id}}
4955: $_=$u;
4956: if ((s/αθ$/ι/) && (m/[^αβδειμξοςστ]ι$/))
4957: { ($fl,$id)=getflag($dbh,$_);
4958: if ($fl && ($fl=~m/O/)){push @list, $id}}
4959: $_=$u;
4960: if ((s/αν$/ω/) && (m/ω$/))
4961: { ($fl,$id)=getflag($dbh,$_);
4962: if ($fl && ($fl=~m/O/)){push @list, $id}}
4963: $_=$u;
4964: if ((s/ανι$/ω/) && (m/ω$/))
4965: { ($fl,$id)=getflag($dbh,$_);
4966: if ($fl && ($fl=~m/O/)){push @list, $id}}
4967: $_=$u;
4968: if ((s/αθ$/ω/) && (m/ω$/))
4969: { ($fl,$id)=getflag($dbh,$_);
4970: if ($fl && ($fl=~m/O/)){push @list, $id}}
4971: $_=$u;
4972: if ((s/ν$//) && (m/[αρ]$/))
4973: { ($fl,$id)=getflag($dbh,$_);
4974: if ($fl && ($fl=~m/O/)){push @list, $id}}
4975: $_=$u;
4976: if ((s/νι$//) && (m/[αρ]$/))
4977: { ($fl,$id)=getflag($dbh,$_);
4978: if ($fl && ($fl=~m/O/)){push @list, $id}}
4979: $_=$u;
4980: if ((s/θ$//) && (m/[αρ]$/))
4981: { ($fl,$id)=getflag($dbh,$_);
4982: if ($fl && ($fl=~m/O/)){push @list, $id}}
4983: $_=$u;
4984: if ((s/α$//) && (m/ιξ$/))
4985: { ($fl,$id)=getflag($dbh,$_);
4986: if ($fl && ($fl=~m/O/)){push @list, $id}}
4987: $_=$u;
4988: if ((s/υ$//) && (m/ιξ$/))
4989: { ($fl,$id)=getflag($dbh,$_);
4990: if ($fl && ($fl=~m/O/)){push @list, $id}}
4991: $_=$u;
4992: if ((s/ον$//) && (m/ιξ$/))
4993: { ($fl,$id)=getflag($dbh,$_);
4994: if ($fl && ($fl=~m/O/)){push @list, $id}}
4995: $_=$u;
4996: if ((s/ε$//) && (m/ιξ$/))
4997: { ($fl,$id)=getflag($dbh,$_);
4998: if ($fl && ($fl=~m/O/)){push @list, $id}}
4999: $_=$u;
5000: if ((s/ε$/ιξ/) && (m/ξιξ$/))
5001: { ($fl,$id)=getflag($dbh,$_);
5002: if ($fl && ($fl=~m/O/)){push @list, $id}}
5003: $_=$u;
5004: if ((s/ω$/ιξ/) && (m/ςιξ$/))
5005: { ($fl,$id)=getflag($dbh,$_);
5006: if ($fl && ($fl=~m/O/)){push @list, $id}}
5007: $_=$u;
5008: if ((s/$/ιξ/) && (m/ιξ$/))
5009: { ($fl,$id)=getflag($dbh,$_);
5010: if ($fl && ($fl=~m/O/)){push @list, $id}}
5011: $_=$u;
5012: if ((s/αν$/ιξ/) && (m/ιξ$/))
5013: { ($fl,$id)=getflag($dbh,$_);
5014: if ($fl && ($fl=~m/O/)){push @list, $id}}
5015: $_=$u;
5016: if ((s/ανι$/ιξ/) && (m/ιξ$/))
5017: { ($fl,$id)=getflag($dbh,$_);
5018: if ($fl && ($fl=~m/O/)){push @list, $id}}
5019: $_=$u;
5020: if ((s/αθ$/ιξ/) && (m/ιξ$/))
5021: { ($fl,$id)=getflag($dbh,$_);
5022: if ($fl && ($fl=~m/O/)){push @list, $id}}
5023: $_=$u;
5024: if ((s/α$//) && (m/[^εκλοψρ]$/))
5025: { ($fl,$id)=getflag($dbh,$_);
5026: if ($fl && ($fl=~m/G/)){push @list, $id}}
5027: $_=$u;
5028: if ((s/υ$//) && (m/[^εκλοψρ]$/))
5029: { ($fl,$id)=getflag($dbh,$_);
5030: if ($fl && ($fl=~m/G/)){push @list, $id}}
5031: $_=$u;
5032: if ((s/ων$//) && (m/[^εφκλογώϋύψρ]$/))
5033: { ($fl,$id)=getflag($dbh,$_);
5034: if ($fl && ($fl=~m/G/)){push @list, $id}}
5035: $_=$u;
5036: if ((s/ε$//) && (m/[^εκλοψρ]$/))
5037: { ($fl,$id)=getflag($dbh,$_);
5038: if ($fl && ($fl=~m/G/)){push @list, $id}}
5039: $_=$u;
5040: if ((s/οηο$/ικ/) && (m/κ$/))
5041: { ($fl,$id)=getflag($dbh,$_);
5042: if ($fl && ($fl=~m/G/)){push @list, $id}}
5043: $_=$u;
5044: if ((s/ονυ$/ικ/) && (m/κ$/))
5045: { ($fl,$id)=getflag($dbh,$_);
5046: if ($fl && ($fl=~m/G/)){push @list, $id}}
5047: $_=$u;
5048: if ((s/ν$/κ/) && (m/κ$/))
5049: { ($fl,$id)=getflag($dbh,$_);
5050: if ($fl && ($fl=~m/G/)){push @list, $id}}
5051: $_=$u;
5052: if ((s/ν$/κ/) && (m/[^ι]κ$/))
5053: { ($fl,$id)=getflag($dbh,$_);
5054: if ($fl && ($fl=~m/G/)){push @list, $id}}
5055: $_=$u;
5056: if ((s/ον$/ικ/) && (m/ικ$/))
5057: { ($fl,$id)=getflag($dbh,$_);
5058: if ($fl && ($fl=~m/G/)){push @list, $id}}
5059: $_=$u;
5060: if ((s/λα$/ελ/) && (m/ελ$/))
5061: { ($fl,$id)=getflag($dbh,$_);
5062: if ($fl && ($fl=~m/G/)){push @list, $id}}
5063: $_=$u;
5064: if ((s/λυ$/ελ/) && (m/ελ$/))
5065: { ($fl,$id)=getflag($dbh,$_);
5066: if ($fl && ($fl=~m/G/)){push @list, $id}}
5067: $_=$u;
5068: if ((s/λον$/ελ/) && (m/ελ$/))
5069: { ($fl,$id)=getflag($dbh,$_);
5070: if ($fl && ($fl=~m/G/)){push @list, $id}}
5071: $_=$u;
5072: if ((s/λε$/ελ/) && (m/ελ$/))
5073: { ($fl,$id)=getflag($dbh,$_);
5074: if ($fl && ($fl=~m/G/)){push @list, $id}}
5075: $_=$u;
5076: if ((s/λα$/ολ/) && (m/ολ$/))
5077: { ($fl,$id)=getflag($dbh,$_);
5078: if ($fl && ($fl=~m/G/)){push @list, $id}}
5079: $_=$u;
5080: if ((s/λυ$/ολ/) && (m/ολ$/))
5081: { ($fl,$id)=getflag($dbh,$_);
5082: if ($fl && ($fl=~m/G/)){push @list, $id}}
5083: $_=$u;
5084: if ((s/λον$/ολ/) && (m/ολ$/))
5085: { ($fl,$id)=getflag($dbh,$_);
5086: if ($fl && ($fl=~m/G/)){push @list, $id}}
5087: $_=$u;
5088: if ((s/λε$/ολ/) && (m/ολ$/))
5089: { ($fl,$id)=getflag($dbh,$_);
5090: if ($fl && ($fl=~m/G/)){push @list, $id}}
5091: $_=$u;
5092: if ((s/ρ$/ψ/) && (m/ψ$/))
5093: { ($fl,$id)=getflag($dbh,$_);
5094: if ($fl && ($fl=~m/G/)){push @list, $id}}
5095: $_=$u;
5096: if ((s/ΰ$/ψ/) && (m/ψ$/))
5097: { ($fl,$id)=getflag($dbh,$_);
5098: if ($fl && ($fl=~m/G/)){push @list, $id}}
5099: $_=$u;
5100: if ((s/εν$/ψ/) && (m/ψ$/))
5101: { ($fl,$id)=getflag($dbh,$_);
5102: if ($fl && ($fl=~m/G/)){push @list, $id}}
5103: $_=$u;
5104: if ((s/ε$/ψ/) && (m/ψ$/))
5105: { ($fl,$id)=getflag($dbh,$_);
5106: if ($fl && ($fl=~m/G/)){push @list, $id}}
5107: $_=$u;
5108: if ((s/ι$/ψ/) && (m/ψ$/))
5109: { ($fl,$id)=getflag($dbh,$_);
5110: if ($fl && ($fl=~m/G/)){push @list, $id}}
5111: $_=$u;
5112: if ((s/εκ$/ψ/) && (m/ψ$/))
5113: { ($fl,$id)=getflag($dbh,$_);
5114: if ($fl && ($fl=~m/G/)){push @list, $id}}
5115: $_=$u;
5116: if ((s/ρν$/ψ/) && (m/ψ$/))
5117: { ($fl,$id)=getflag($dbh,$_);
5118: if ($fl && ($fl=~m/G/)){push @list, $id}}
5119: $_=$u;
5120: if ((s/ρνι$/ψ/) && (m/ψ$/))
5121: { ($fl,$id)=getflag($dbh,$_);
5122: if ($fl && ($fl=~m/G/)){push @list, $id}}
5123: $_=$u;
5124: if ((s/ρθ$/ψ/) && (m/ψ$/))
5125: { ($fl,$id)=getflag($dbh,$_);
5126: if ($fl && ($fl=~m/G/)){push @list, $id}}
5127: $_=$u;
5128: if ((s/ι$/ρ/) && (m/ρ$/))
5129: { ($fl,$id)=getflag($dbh,$_);
5130: if ($fl && ($fl=~m/G/)){push @list, $id}}
5131: $_=$u;
5132: if ((s/ε$/ρ/) && (m/[^ι]ρ$/))
5133: { ($fl,$id)=getflag($dbh,$_);
5134: if ($fl && ($fl=~m/G/)){push @list, $id}}
5135: $_=$u;
5136: if ((s/ΰ$/ρ/) && (m/ρ$/))
5137: { ($fl,$id)=getflag($dbh,$_);
5138: if ($fl && ($fl=~m/G/)){push @list, $id}}
5139: $_=$u;
5140: if ((s/εκ$/ρ/) && (m/ρ$/))
5141: { ($fl,$id)=getflag($dbh,$_);
5142: if ($fl && ($fl=~m/G/)){push @list, $id}}
5143: $_=$u;
5144: if ((s/εΰ$/ρ/) && (m/ρ$/))
5145: { ($fl,$id)=getflag($dbh,$_);
5146: if ($fl && ($fl=~m/G/)){push @list, $id}}
5147: $_=$u;
5148: if ((s/κ$/ρ/) && (m/[ειυ]ρ$/))
5149: { ($fl,$id)=getflag($dbh,$_);
5150: if ($fl && ($fl=~m/G/)){push @list, $id}}
5151: $_=$u;
5152: if ((s/εξ$/ξρ/) && (m/[^αεϊικουωψ]ξρ$/))
5153: { ($fl,$id)=getflag($dbh,$_);
5154: if ($fl && ($fl=~m/G/)){push @list, $id}}
5155: $_=$u;
5156: if ((s/ψ$/ρ/) && (m/[αειουω]ξρ$/))
5157: { ($fl,$id)=getflag($dbh,$_);
5158: if ($fl && ($fl=~m/G/)){push @list, $id}}
5159: $_=$u;
5160: if ((s/εξ$/κξρ/) && (m/κξρ$/))
5161: { ($fl,$id)=getflag($dbh,$_);
5162: if ($fl && ($fl=~m/G/)){push @list, $id}}
5163: $_=$u;
5164: if ((s/εξ$/ψξρ/) && (m/ψξρ$/))
5165: { ($fl,$id)=getflag($dbh,$_);
5166: if ($fl && ($fl=~m/G/)){push @list, $id}}
5167: $_=$u;
5168: if ((s/ν$//) && (m/ρ$/))
5169: { ($fl,$id)=getflag($dbh,$_);
5170: if ($fl && ($fl=~m/G/)){push @list, $id}}
5171: $_=$u;
5172: if ((s/νι$//) && (m/ρ$/))
5173: { ($fl,$id)=getflag($dbh,$_);
5174: if ($fl && ($fl=~m/G/)){push @list, $id}}
5175: $_=$u;
5176: if ((s/θ$//) && (m/ρ$/))
5177: { ($fl,$id)=getflag($dbh,$_);
5178: if ($fl && ($fl=~m/G/)){push @list, $id}}
5179: $_=$u;
5180: ($fl,$id)=getflag($dbh,$_);
5181: if ($fl) {push @list, $id}
5182:
5183: @list
5184: } 1
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>