Return to cw.pl CVS log

Up to [Local Repository] / db / prgsrc

Trying to fix bug-65536

    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