File:  [Local Repository] / db / prgsrc / cw.pl
Revision 1.1: download - view: text, annotated - select for diffs - revision graph
Sun Jan 13 00:32:12 2002 UTC (22 years, 2 months ago) by roma7
Branches: MAIN
CVS tags: HEAD
Trying to fix bug-65536


use locale;
use DBI;
use POSIX qw (locale_h);

sub getflag
{

        my $w=$_[0]->quote($_[1]);
	my $z=  $_[0] -> prepare("select flag, id from nf where word=$w");
	$z -> execute;
	@res=$z->fetchrow();
}



sub checkword
{

   my ($dbh,$u)=($_[0],uc $_[1]);
   my @list;

$_=$u;
                    if ((s/óñ$//) && (m/$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/C/)){push @list, $id}}
$_=$u;
                    if ((s/ì$/ôø/) && (m/[^úó]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìá$/ôø/) && (m/[^ó]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìï$/ôø/) && (m/[^ó]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìé$/ôø/) && (m/[^ó]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìóñ$/ôøóñ/) && (m/[^úó]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìáóø$/ôøóñ/) && (m/[^ó]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìïóø$/ôøóñ/) && (m/[^ó]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìéóø$/ôøóñ/) && (m/[^ó]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ì$/óôø/) && (m/[^þ].óôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/åì$/åóôø/) && (m/þåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìá$/óôø/) && (m/[^þ].óôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìá$/åóôø/) && (m/þåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìï$/óôø/) && (m/[^þ].óôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìï$/åóôø/) && (m/þåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìé$/óôø/) && (m/[^þ].óôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìé$/åóôø/) && (m/þåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìóñ$/óôøóñ/) && (m/óôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìáóø$/óôøóñ/) && (m/óôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìïóø$/óôøóñ/) && (m/óôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìéóø$/óôøóñ/) && (m/óôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ì$/óôé/) && (m/óôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìá$/óôé/) && (m/óôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìï$/óôé/) && (m/óôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìé$/óôé/) && (m/óôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìóñ$/óôéóø/) && (m/óôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìáóø$/óôéóø/) && (m/óôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìïóø$/óôéóø/) && (m/óôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìéóø$/óôéóø/) && (m/óôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/$/ôé/) && (m/úôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìá$/ôé/) && (m/úôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìé$/ôé/) && (m/úôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìï$/ôé/) && (m/úôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/$/ôø/) && (m/úôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/óñ$/ôøóñ/) && (m/úôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ë$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ëìá$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ëìï$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ëìé$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ëóñ$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ëìáóø$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ëìïóø$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ëìéóø$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìá$//) && (m/[^áéøñ]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìï$//) && (m/[^áéøñ]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìé$//) && (m/[^áéøñ]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìáóø$/óñ/) && (m/[^áéøñ]óñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìïóø$/óñ/) && (m/[^áéøñ]óñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ìéóø$/óñ/) && (m/[^áéøñ]óñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ï$/á/) && (m/á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/é$/á/) && (m/á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/ïóø$/áóø/) && (m/áóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/éóø$/áóø/) && (m/áóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/L/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ôø/) && (m/[áå]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/àóø$/ôøóñ/) && (m/[áå]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ôø/) && (m/[áå]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/ôøóñ/) && (m/[áå]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/ôø/) && (m/[áå]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/ôøóñ/) && (m/[áå]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/ôø/) && (m/[áå]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/ôøóñ/) && (m/[áå]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/ôø/) && (m/[áå]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/ôøóñ/) && (m/[áå]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/àô$/ôø/) && (m/[áå]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/àôóñ$/ôøóñ/) && (m/[áå]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/$/ôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/óø$/ôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/$/ø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/óñ$/øóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/àóø$/ïôøóñ/) && (m/ïôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/ïôøóñ/) && (m/ïôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/ïôøóñ/) && (m/ïôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/ïôøóñ/) && (m/ïôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/ïôøóñ/) && (m/ïôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/àô$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/àôóñ$/ïôøóñ/) && (m/ïôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïà$/ùôø/) && (m/ùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïàóø$/ùôøóñ/) && (m/ùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïåí$/ùôø/) && (m/ùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïåíóñ$/ùôøóñ/) && (m/ùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïåûø$/ùôø/) && (m/ùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïåûøóñ$/ùôøóñ/) && (m/ùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïåôå$/ùôø/) && (m/ùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïåôåóø$/ùôøóñ/) && (m/ùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïåô$/ùôø/) && (m/ùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïåôóñ$/ùôøóñ/) && (m/ùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïàô$/ùôø/) && (m/ùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ïàôóñ$/ùôøóñ/) && (m/ùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/ôé/) && (m/[úó]ôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/õóø$/ôéóø/) && (m/[úó]ôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ôé/) && (m/[úó]ôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/ôéóø/) && (m/[úó]ôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/ôé/) && (m/[úó]ôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/ôéóø/) && (m/[úó]ôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/ôé/) && (m/[úó]ôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/ôéóø/) && (m/[úó]ôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/ôé/) && (m/[úó]ôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/ôéóø/) && (m/[úó]ôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/õô$/ôé/) && (m/[úó]ôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/õôóñ$/ôéóø/) && (m/[úó]ôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äõ$/ôé/) && (m/êôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äõóø$/ôéóø/) && (m/êôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äåí$/ôé/) && (m/êôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äåíóñ$/ôéóø/) && (m/êôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äåûø$/ôé/) && (m/êôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äåûøóñ$/ôéóø/) && (m/êôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äåôå$/ôé/) && (m/êôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äåôåóø$/ôéóø/) && (m/êôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äåô$/ôé/) && (m/êôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äåôóñ$/ôéóø/) && (m/êôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äõô$/ôé/) && (m/êôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/äõôóñ$/ôéóø/) && (m/êôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ëõ$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ëõóø$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/øóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/ø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/øóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/ø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/øóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/ø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/øóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ëõô$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/ëõôóñ$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/M/)){push @list, $id}}
$_=$u;
                    if ((s/à$/÷áôø/) && (m/á÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/÷áôø/) && (m/á÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/÷áôø/) && (m/á÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/÷áôø/) && (m/á÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/÷áôø/) && (m/á÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àô$/÷áôø/) && (m/á÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àóø$/÷áôøóñ/) && (m/á÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/÷áôøóñ/) && (m/á÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/÷áôøóñ/) && (m/á÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/÷áôøóñ/) && (m/á÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/÷áôøóñ/) && (m/á÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àôóñ$/÷áôøóñ/) && (m/á÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õà$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåí$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåûø$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåôå$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåô$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õàô$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õàóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåíóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåûøóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåôåóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåôóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õàôóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àà$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àåí$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àåûø$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àåôå$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àåô$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/ààô$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/ààóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àåíóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àåûøóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àåôåóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àåôóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/ààôóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õà$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåí$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåûø$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåôå$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåô$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õàô$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õàóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåíóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåûøóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåôåóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õåôóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õàôóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ôø/) && (m/[^áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ñôø/) && (m/[áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ôø/) && (m/[^áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ñôø/) && (m/[áåõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éí$/ñôø/) && (m/ïñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/ôø/) && (m/[^áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/ñôø/) && (m/[áåõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éûø$/ñôø/) && (m/ïñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/ôø/) && (m/[^áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/ñôø/) && (m/[áåõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éôå$/ñôø/) && (m/ïñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/ôø/) && (m/[^áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/ñôø/) && (m/[áåõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éô$/ñôø/) && (m/ïñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àô$/ôø/) && (m/[^áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àô$/ñôø/) && (m/[áåõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/$/ø/) && (m/ïñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àóø$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àóø$/ñôøóñ/) && (m/[áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/ñôøóñ/) && (m/[áåõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éíóñ$/ñôøóñ/) && (m/ïñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/ñôøóñ/) && (m/[áåõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éûøóñ$/ñôøóñ/) && (m/ïñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/ñôøóñ/) && (m/[áåõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éôåóø$/ñôøóñ/) && (m/ïñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/ñôøóñ/) && (m/[áåõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éôóñ$/ñôøóñ/) && (m/ïñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àôóñ$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/àôóñ$/ñôøóñ/) && (m/[áåõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/óñ$/øóñ/) && (m/ïñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/áôø/) && (m/[öûýþ]áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õóø$/áôøóñ/) && (m/[öûýþ]áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éí$/áôø/) && (m/[öûýþ]áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éíóñ$/áôøóñ/) && (m/[öûýþ]áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éûø$/áôø/) && (m/[öûýþ]áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éûøóñ$/áôøóñ/) && (m/[öûýþ]áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éôå$/áôø/) && (m/[öûýþ]áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éôåóø$/áôøóñ/) && (m/[öûýþ]áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éô$/áôø/) && (m/[öûýþ]áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/éôóñ$/áôøóñ/) && (m/[öûýþ]áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/$/ø/) && (m/[öûýþ]áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/óñ$/øóñ/) && (m/[öûýþ]áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õóø$/áôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/áôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/áôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/áôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/áôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õô$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/õôóñ$/áôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/çõ$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/çõóø$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/öåí$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/öåíóñ$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/öåûø$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/öåûøóñ$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/öåôå$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/öåôåóø$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/öåô$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/öåôóñ$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/çõô$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/çõôóñ$/þøóñ/) && (m/þøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/$/ôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/óø$/ôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/$/ø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/óñ$/øóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/U/)){push @list, $id}}
$_=$u;
                    if ((s/ìà$/éôø/) && (m/[â÷íðæ]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/ìàóø$/éôøóñ/) && (m/[â÷íðæ]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/öõ$/äéôø/) && (m/äéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/öõóø$/äéôøóñ/) && (m/äéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/à$/éôø/) && (m/[áåìîïòõ]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/àóø$/éôøóñ/) && (m/[áåìîïòõ]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/éôø/) && (m/[öþûý]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/õóø$/éôøóñ/) && (m/[öþûý]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/öõ$/úéôø/) && (m/úéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/öõóø$/úéôøóñ/) && (m/úéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/ûõ$/óéôø/) && (m/óéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/ûõóø$/óéôøóñ/) && (m/óéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/þõ$/ôéôø/) && (m/[^áåéïõùüàñóþ]ôéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/ýõ$/óôéôø/) && (m/óôéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/þõóø$/ôéôøóñ/) && (m/[^áåéïõùüàñóþ]ôéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/ýõóø$/óôéôøóñ/) && (m/óôéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/í$/ôø/) && (m/éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/íóñ$/ôøóñ/) && (m/éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/ûø$/ôø/) && (m/éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/ûøóñ$/ôøóñ/) && (m/éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ø/) && (m/éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/åóø$/øóñ/) && (m/éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/$/ø/) && (m/éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/óñ$/øóñ/) && (m/éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/ñô$/éôø/) && (m/[^öþûý]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/ñôóñ$/éôøóñ/) && (m/[^öþûý]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/áô$/éôø/) && (m/[öþûý]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/áôóñ$/éôøóñ/) && (m/[öþûý]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/W/)){push @list, $id}}
$_=$u;
                    if ((s/øà$/éôø/) && (m/[â÷ìð]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øàóø$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øåí$/éôø/) && (m/[â÷ìð]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øåíóñ$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øåûø$/éôø/) && (m/[â÷ìð]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øåûøóñ$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øåôå$/éôø/) && (m/[â÷ìð]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øåôåóø$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øåô$/éôø/) && (m/[â÷ìð]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øåôóñ$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øàô$/éôø/) && (m/[â÷ìð]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/øàôóñ$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷õ$/ôø/) && (m/öéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷õóø$/ôøóñ/) && (m/öéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷åí$/ôø/) && (m/öéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷åíóñ$/ôøóñ/) && (m/öéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷åûø$/ôø/) && (m/öéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷åûøóñ$/ôøóñ/) && (m/öéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷åôå$/ôø/) && (m/öéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷åôåóø$/ôøóñ/) && (m/öéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷åô$/ôø/) && (m/öéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷åôóñ$/ôøóñ/) && (m/öéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷õô$/ôø/) && (m/öéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/÷õôóñ$/ôøóñ/) && (m/öéôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õà$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåí$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåûø$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåôå$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåô$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õàô$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õàóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåôóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåûøóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåôåóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåôóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õàôóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àà$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àåí$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àåûø$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àåôå$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àåô$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ààô$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ààóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àåíóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àåûøóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àåôåóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àåôóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ààôóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õà$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåí$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåûø$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåôå$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåô$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õàô$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õàóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåíóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåûøóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåôåóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õåôóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õàôóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îõ$/ôø/) && (m/äåôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îõóø$/ôøóñ/) && (m/äåôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îåí$/ôø/) && (m/äåôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îåíóñ$/ôøóñ/) && (m/äåôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îåûø$/ôø/) && (m/äåôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îåûøóñ$/ôøóñ/) && (m/äåôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îåôå$/ôø/) && (m/äåôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îåôåóø$/ôøóñ/) && (m/äåôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îåô$/ôø/) && (m/äåôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îåôóñ$/ôøóñ/) && (m/äåôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îõô$/ôø/) && (m/äåôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/îõôóñ$/ôøóñ/) && (m/äåôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àóø$/ôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/ôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/ôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/ôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/ôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/ôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/ôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/ôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àô$/ôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àôóñ$/ôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äõ$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äõóø$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äåí$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äåíóñ$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äåûø$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äåûøóñ$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äåôå$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äåôåóø$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äåô$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äåôóñ$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äõô$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/äõôóñ$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìà$/áôø/) && (m/ðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìàóø$/áôøóñ/) && (m/ðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìåí$/áôø/) && (m/ðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìåíóñ$/áôøóñ/) && (m/ðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìåûø$/áôø/) && (m/ðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìåûøóñ$/áôøóñ/) && (m/ðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìåôå$/áôø/) && (m/ðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìåôåóø$/áôøóñ/) && (m/ðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìåô$/áôø/) && (m/ðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìåôóñ$/áôøóñ/) && (m/ðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìàô$/áôø/) && (m/ðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ìàôóñ$/áôøóñ/) && (m/ðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñçõ$/åþø/) && (m/ìåþø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñçõóø$/åþøóñ/) && (m/ìåþøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñöåí$/åþø/) && (m/ìåþø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñöåíóñ$/åþøóñ/) && (m/ìåþøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñöåûø$/åþø/) && (m/ìåþø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñöåûøóñ$/åþøóñ/) && (m/ìåþøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñöåôå$/åþø/) && (m/ìåþø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñöåôåóø$/åþøóñ/) && (m/ìåþøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñöåô$/åþø/) && (m/ìåþø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñöåôóñ$/åþøóñ/) && (m/ìåþøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñçõô$/åþø/) && (m/ìåþø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/ñçõôóñ$/åþøóñ/) && (m/ìåþøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ñôø/) && (m/ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ñôø/) && (m/ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/ñôø/) && (m/ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/ñôø/) && (m/ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/ñôø/) && (m/ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àô$/ñôø/) && (m/ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àóø$/ñôøóñ/) && (m/ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/ñôøóñ/) && (m/ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/ñôøóñ/) && (m/ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/ñôøóñ/) && (m/ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/ñôøóñ/) && (m/ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/àôóñ$/ñôøóñ/) && (m/ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/õô$/áôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/V/)){push @list, $id}}
$_=$u;
                    if ((s/öõ$/äåôø/) && (m/äåôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öõóø$/äåôøóñ/) && (m/äåôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ìà$/åôø/) && (m/ðåôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ìàóø$/åôøóñ/) && (m/ðåôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/à$/åôø/) && (m/òåôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/àóø$/åôøóñ/) && (m/òåôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûõ$/óåôø/) && (m/óåôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éí$/åôø/) && (m/[äíîðòóô]åôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éíóñ$/åôøóñ/) && (m/[äòô]åôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éûø$/åôø/) && (m/[äíîðòóô]åôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éûøóñ$/åôøóñ/) && (m/[äòô]åôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éôå$/åôø/) && (m/[äíîðòóô]åôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éôåóø$/åôøóñ/) && (m/[äòô]åôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éô$/åôø/) && (m/[äíîðòóô]åôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éôóñ$/åôøóñ/) && (m/[äòô]åôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ñô$/åôø/) && (m/[äíîðòóô]åôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ñôóñ$/åôøóñ/) && (m/[äòô]åôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäõ$/ùôø/) && (m/âùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäõóø$/ùôøóñ/) && (m/âùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäåí$/ùôø/) && (m/âùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäåíóñ$/ùôøóñ/) && (m/âùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäåûø$/ùôø/) && (m/âùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäåûøóñ$/ùôøóñ/) && (m/âùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäåôå$/ùôø/) && (m/âùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäåôåóø$/ùôøóñ/) && (m/âùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäåô$/ùôø/) && (m/âùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäåôóñ$/ùôøóñ/) && (m/âùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäõô$/ùôø/) && (m/âùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õäõôóñ$/ùôøóñ/) && (m/âùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷õ$/ôø/) && (m/ìùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷õóø$/ôøóñ/) && (m/ìùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷åí$/ôø/) && (m/ìùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷åíóñ$/ôøóñ/) && (m/ìùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷åûø$/ôø/) && (m/ìùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷åûøóñ$/ôøóñ/) && (m/ìùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷åôå$/ôø/) && (m/ìùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷åôåóø$/ôøóñ/) && (m/ìùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷åô$/ôø/) && (m/ìùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷åôóñ$/ôøóñ/) && (m/ìùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷õô$/ôø/) && (m/ìùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/÷õôóñ$/ôøóñ/) && (m/ìùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öõ$/úáôø/) && (m/úáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öõóø$/úáôøóñ/) && (m/úáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåí$/úáôø/) && (m/úáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåíóñ$/úáôøóñ/) && (m/úáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåûø$/úáôø/) && (m/úáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåûøóñ$/úáôøóñ/) && (m/úáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåôå$/úáôø/) && (m/úáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåôåóø$/úáôøóñ/) && (m/úáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåô$/úáôø/) && (m/úáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåôóñ$/úáôøóñ/) && (m/úáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öõô$/úáôø/) && (m/úáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öõôóñ$/úáôøóñ/) && (m/úáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûõ$/óáôø/) && (m/[^ï]óáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûõóø$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåí$/óáôø/) && (m/[^ï]óáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåíóñ$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåûø$/óáôø/) && (m/[^ï]óáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåûøóñ$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåôå$/óáôø/) && (m/[^ï]óáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåôåóø$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåô$/óáôø/) && (m/[^ï]óáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåôóñ$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûõô$/óáôø/) && (m/[^ï]óáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûõôóñ$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/áôø/) && (m/ïóáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õóø$/áôøóñ/) && (m/ïóáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/áôø/) && (m/ïóáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/áôøóñ/) && (m/ïóáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/áôø/) && (m/ïóáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/áôøóñ/) && (m/ïóáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/áôø/) && (m/ïóáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/áôøóñ/) && (m/ïóáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/áôø/) && (m/ïóáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/áôøóñ/) && (m/ïóáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õô$/áôø/) && (m/ïóáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õôóñ$/áôøóñ/) && (m/ïóáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/çõ$/öáôø/) && (m/öáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/çõóø$/öáôøóñ/) && (m/öáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éí$/áôø/) && (m/öáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éíóñ$/áôøóñ/) && (m/öáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éûø$/áôø/) && (m/öáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éûøóñ$/áôøóñ/) && (m/öáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éôå$/áôø/) && (m/öáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éôåóø$/áôøóñ/) && (m/öáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éô$/áôø/) && (m/öáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éôóñ$/áôøóñ/) && (m/öáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/çõô$/öáôø/) && (m/öáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/çõôóñ$/öáôøóñ/) && (m/öáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/à$/éôø/) && (m/ìéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/éôø/) && (m/ìéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/éôø/) && (m/ìéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/éôø/) && (m/ìéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/éôø/) && (m/ìéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/àô$/éôø/) && (m/ìéôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/í$/ôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/íóñ$/ôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äéí$/ôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äéíóñ$/ôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûø$/ôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûøóñ$/ôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äéôå$/ôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äéôåóø$/ôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/óô$/ôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/óôóñ$/ôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äõô$/ôø/) && (m/äáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äõôóñ$/ôøóñ/) && (m/äáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þõ$/ëáôø/) && (m/[^ó]ëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þõóø$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåí$/ëáôø/) && (m/[^ó]ëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåíóñ$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåûø$/ëáôø/) && (m/[^ó]ëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåûøóñ$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåôå$/ëáôø/) && (m/[^ó]ëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåôåóø$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåô$/ëáôø/) && (m/[^ó]ëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåôóñ$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þõô$/ëáôø/) && (m/[^ó]ëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þõôóñ$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýõ$/óëáôø/) && (m/óëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýõóø$/óëáôøóñ/) && (m/óëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýåí$/óëáôø/) && (m/óëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýåíóñ$/óëáôøóñ/) && (m/óëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýåûø$/óëáôø/) && (m/óëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýåûøóñ$/óëáôøóñ/) && (m/óëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýåôå$/óëáôø/) && (m/óëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýåôåóø$/óëáôøóñ/) && (m/óëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýåô$/óëáôø/) && (m/óëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýåôóñ$/óëáôøóñ/) && (m/óëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýõô$/óëáôø/) && (m/óëáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ýõôóñ$/óëáôøóñ/) && (m/óëáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòõ$/òáôø/) && (m/[âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòõóø$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòåí$/òáôø/) && (m/[âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòåíóñ$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòåûø$/òáôø/) && (m/[âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòåûøóñ$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòåôå$/òáôø/) && (m/[âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòåôåóø$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòåô$/òáôø/) && (m/[âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòåôóñ$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòõô$/òáôø/) && (m/[âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åòõôóñ$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òõ$/òáôø/) && (m/[^âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òõóø$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òåí$/òáôø/) && (m/[^âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òåíóñ$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òåûø$/òáôø/) && (m/[^âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òåûøóñ$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òåôå$/òáôø/) && (m/[^âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òåôåóø$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òåô$/òáôø/) && (m/[^âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òåôóñ$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òõô$/òáôø/) && (m/[^âä]òáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/òõôóñ$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þõ$/ôáôø/) && (m/[^ó]ôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þõóø$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåí$/ôáôø/) && (m/[^ó]ôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåíóñ$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåûø$/ôáôø/) && (m/[^ó]ôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåûøóñ$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåôå$/ôáôø/) && (m/[^ó]ôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåôåóø$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåô$/ôáôø/) && (m/[^ó]ôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þåôóñ$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þõô$/ôáôø/) && (m/[^ó]ôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/þõôóñ$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îõ$/ôø/) && (m/óôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îõóø$/ôøóñ/) && (m/óôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåí$/ôø/) && (m/óôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåíóñ$/ôøóñ/) && (m/óôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåûø$/ôø/) && (m/óôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåûøóñ$/ôøóñ/) && (m/óôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåôå$/ôø/) && (m/óôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåôåóø$/ôøóñ/) && (m/óôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåô$/ôø/) && (m/óôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåôóñ$/ôøóñ/) && (m/óôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îõô$/ôø/) && (m/óôáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îõôóñ$/ôøóñ/) && (m/óôáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ìà$/áôø/) && (m/óðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ìàóø$/áôøóñ/) && (m/óðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éí$/áôø/) && (m/óðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éíóñ$/áôøóñ/) && (m/óðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éûø$/áôø/) && (m/óðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éûøóñ$/áôøóñ/) && (m/óðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éôå$/áôø/) && (m/óðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éôåóø$/áôøóñ/) && (m/óðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éô$/áôø/) && (m/óðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/éôóñ$/áôøóñ/) && (m/óðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ñô$/áôø/) && (m/óðáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ñôóñ$/áôøóñ/) && (m/óðáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìà$/óìáôø/) && (m/óìáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìàóø$/óìáôøóñ/) && (m/óìáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìåí$/óìáôø/) && (m/óìáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìåíóñ$/óìáôøóñ/) && (m/óìáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìåûø$/óìáôø/) && (m/óìáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìåûøóñ$/óìáôøóñ/) && (m/óìáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìåôå$/óìáôø/) && (m/óìáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìåôåóø$/óìáôøóñ/) && (m/óìáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìåô$/óìáôø/) && (m/óìáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìåôóñ$/óìáôøóñ/) && (m/óìáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìàô$/óìáôø/) && (m/óìáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûìàôóñ$/óìáôøóñ/) && (m/óìáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/áôø/) && (m/ò÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õóø$/áôøóñ/) && (m/ò÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/áôø/) && (m/ò÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/áôøóñ/) && (m/ò÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/áôø/) && (m/ò÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åûøóñ$/áôøóñ/) && (m/ò÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/áôø/) && (m/ò÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åôåóø$/áôøóñ/) && (m/ò÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/áôø/) && (m/ò÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åôóñ$/áôøóñ/) && (m/ò÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õô$/áôø/) && (m/ò÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õôóñ$/áôøóñ/) && (m/ò÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷õ$/÷áôø/) && (m/ú÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷õóø$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷åí$/÷áôø/) && (m/ú÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷åíóñ$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷åûø$/÷áôø/) && (m/ú÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷åûøóñ$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷åôå$/÷áôø/) && (m/ú÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷åôåóø$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷åô$/÷áôø/) && (m/ú÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷åôóñ$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷õô$/÷áôø/) && (m/ú÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷õôóñ$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîà$/îáôø/) && (m/çîáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîàóø$/îáôøóñ/) && (m/çîáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîéí$/îáôø/) && (m/çîáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîéíóñ$/îáôøóñ/) && (m/çîáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîéûø$/îáôø/) && (m/çîáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîéûøóñ$/îáôøóñ/) && (m/çîáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîéôå$/îáôø/) && (m/çîáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîéôåóø$/îáôøóñ/) && (m/çîáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîéô$/îáôø/) && (m/çîáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîéôóñ$/îáôøóñ/) && (m/çîáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîñô$/îáôø/) && (m/çîáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ïîñôóñ$/îáôøóñ/) && (m/çîáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûõ$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûõóø$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåí$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåíóñ$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåûø$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåûøóñ$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåôå$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåôåóø$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåô$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûåôóñ$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûõô$/èáôø/) && (m/èáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ûõôóñ$/èáôøóñ/) && (m/èáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôõ$/åóôø/) && (m/þåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåí$/åóôø/) && (m/þåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåûø$/åóôø/) && (m/þåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåôå$/åóôø/) && (m/þåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåô$/åóôø/) && (m/þåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôõô$/åóôø/) && (m/þåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ñäõ$/åóôø/) && (m/óåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ñäåí$/åóôø/) && (m/óåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ñäåûø$/åóôø/) && (m/óåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ñäåôå$/åóôø/) && (m/óåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ñäåô$/åóôø/) && (m/óåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ñäõô$/åóôø/) && (m/óåóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/ôø/) && (m/ìåúôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ôø/) && (m/ìåúôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/ôø/) && (m/ìåúôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/ôø/) && (m/ìåúôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/ôø/) && (m/ìåúôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õô$/ôø/) && (m/ìåúôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äõ$/óôø/) && (m/áóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äõóø$/óôøóñ/) && (m/áóôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåí$/óôø/) && (m/áóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåíóñ$/óôøóñ/) && (m/áóôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåûø$/óôø/) && (m/áóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåûøóñ$/óôøóñ/) && (m/áóôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåôå$/óôø/) && (m/áóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåôåóø$/óôøóñ/) && (m/áóôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåô$/óôø/) && (m/áóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåôóñ$/óôøóñ/) && (m/áóôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äõô$/óôø/) && (m/áóôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äõôóñ$/óôøóñ/) && (m/áóôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îõ$/ñôø/) && (m/íñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îõóø$/ñôøóñ/) && (m/íñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåí$/ñôø/) && (m/íñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåíóñ$/ñôøóñ/) && (m/íñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåûø$/ñôø/) && (m/íñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåûøóñ$/ñôøóñ/) && (m/íñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåôå$/ñôø/) && (m/íñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåôåóø$/ñôøóñ/) && (m/íñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåô$/ñôø/) && (m/íñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îåôóñ$/ñôøóñ/) && (m/íñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îõô$/ñôø/) && (m/íñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/îõôóñ$/ñôøóñ/) && (m/íñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/é/) && (m/òáóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/é/) && (m/òáóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åûø$/é/) && (m/òáóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åôå$/é/) && (m/òáóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/åô$/é/) && (m/òáóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/õô$/é/) && (m/òáóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äõ$/óôé/) && (m/÷åóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äõóø$/óôéóø/) && (m/÷åóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåí$/óôé/) && (m/÷åóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåíóñ$/óôéóø/) && (m/÷åóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåûø$/óôé/) && (m/÷åóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåûøóñ$/óôéóø/) && (m/÷åóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåôå$/óôé/) && (m/÷åóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåôåóø$/óôéóø/) && (m/÷åóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåô$/óôé/) && (m/÷åóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äåôóñ$/óôéóø/) && (m/÷åóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äõô$/óôé/) && (m/÷åóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/äõôóñ$/óôéóø/) && (m/÷åóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôõ$/óôé/) && (m/ìåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôõóø$/óôéóø/) && (m/ìåóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåí$/óôé/) && (m/ìåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåíóñ$/óôéóø/) && (m/ìåóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåûø$/óôé/) && (m/ìåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåûøóñ$/óôéóø/) && (m/ìåóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåôå$/óôé/) && (m/ìåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåôåóø$/óôéóø/) && (m/ìåóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåô$/óôé/) && (m/ìåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôåôóñ$/óôéóø/) && (m/ìåóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôõô$/óôé/) && (m/ìåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ôõôóñ$/óôéóø/) && (m/ìåóôéóø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/âõ$/óôé/) && (m/òåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/âåí$/óôé/) && (m/òåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/âåûø$/óôé/) && (m/òåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/âåôå$/óôé/) && (m/òåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/âåô$/óôé/) && (m/òåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/âõô$/óôé/) && (m/òåóôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/çõ$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåí$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåûø$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåôå$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/öåô$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/çõô$/þø/) && (m/þø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Y/)){push @list, $id}}
$_=$u;
                    if ((s/ê$/ôø/) && (m/[áåñ]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/êóñ$/ôøóñ/) && (m/[áåñ]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/êôå$/ôø/) && (m/[áåñ]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/êôåóø$/ôøóñ/) && (m/[áåñ]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/$/ôø/) && (m/éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ø/) && (m/éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/óø$/ôøóñ/) && (m/éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/ôåóø$/ôøóñ/) && (m/éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/éôå$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/éóø$/ïôøóñ/) && (m/ïôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/éôåóø$/ïôøóñ/) && (m/ïôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/é$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/éôå$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/éóø$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/éôåóø$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/ïê$/ùôø/) && (m/ùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/ïêôå$/ùôø/) && (m/ùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/ïêóñ$/ùôøóñ/) && (m/ùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/ïêôåóø$/ùôøóñ/) && (m/ùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/B/)){push @list, $id}}
$_=$u;
                    if ((s/õê$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/õêóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/õêôå$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/õêôåóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/õê$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/õêôå$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/õêóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/õêôåóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/àê$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/àêôå$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/àêóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/àêôåóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/é$/áôø/) && (m/[öþ]áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/éóø$/áôøóñ/) && (m/[öþ]áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/ûé$/óáôø/) && (m/óáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/ûéôå$/óáôø/) && (m/óáôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/ûéóø$/óáôøóñ/) && (m/óáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/ûéôåóø$/óáôøóñ/) && (m/óáôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/ê$/éôø/) && (m/[áåï]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/êôå$/éôø/) && (m/[áåï]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/êóñ$/éôøóñ/) && (m/[áåï]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/êôåóø$/éôøóñ/) && (m/[áåï]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/ø$/éôø/) && (m/[^áåï]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/øôå$/éôø/) && (m/[^áåï]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/øóñ$/éôøóñ/) && (m/[^áåï]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/øôåóø$/éôøóñ/) && (m/[^áåï]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/ø$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/øôå$/õôø/) && (m/õôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/øóñ$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/øôåóø$/õôøóñ/) && (m/õôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/ê$/ñôø/) && (m/[áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/êôå$/ñôø/) && (m/[áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/êóñ$/ñôøóñ/) && (m/[áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/êôåóø$/ñôøóñ/) && (m/[áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/é$/åôø/) && (m/åôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/éóø$/åôøóñ/) && (m/åôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/éôå$/åôø/) && (m/åôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/éôåóø$/åôøóñ/) && (m/åôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/T/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/ôø/) && (m/[áå]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/ñóø$/ôøóñ/) && (m/[áå]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/ôø/) && (m/[^áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/ñóø$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/$/ôø/) && (m/[áåïõ]ñôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/óø$/ôøóñ/) && (m/[áåïõ]ñôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/éôø/) && (m/[^öþûý]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/ñóø$/éôøóñ/) && (m/[^öþûý]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/á$/éôø/) && (m/[öþûý]éôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/áóø$/éôøóñ/) && (m/[öþûý]éôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/ïñ$/ùôø/) && (m/ùôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/ïñóø$/ùôøóñ/) && (m/ùôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/P/)){push @list, $id}}
$_=$u;
                    if ((s/õñ$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Q/)){push @list, $id}}
$_=$u;
                    if ((s/õñóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Q/)){push @list, $id}}
$_=$u;
                    if ((s/àñ$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Q/)){push @list, $id}}
$_=$u;
                    if ((s/àñóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Q/)){push @list, $id}}
$_=$u;
                    if ((s/õñ$/ï÷áôø/) && (m/ï÷áôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Q/)){push @list, $id}}
$_=$u;
                    if ((s/õñóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Q/)){push @list, $id}}
$_=$u;
                    if ((s/÷$/ôø/) && (m/[áåéïõùñ]ôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/R/)){push @list, $id}}
$_=$u;
                    if ((s/÷ûéóø$/ôøóñ/) && (m/[áåéïõùñ]ôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/R/)){push @list, $id}}
$_=$u;
                    if ((s/÷$/óôø/) && (m/óôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/R/)){push @list, $id}}
$_=$u;
                    if ((s/÷ûéóø$/óôøóñ/) && (m/óôøóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/R/)){push @list, $id}}
$_=$u;
                    if ((s/ï$/ùê/) && (m/[÷ìîòô]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Z/)){push @list, $id}}
$_=$u;
                    if ((s/$/ê/) && (m/[óã]ëéê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Z/)){push @list, $id}}
$_=$u;
                    if ((s/å$/éê/) && (m/ýéê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/Z/)){push @list, $id}}
$_=$u;
                    if ((s/ïçï$/ùê/) && (m/[^ã]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åçï$/ùê/) && (m/ãùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïíõ$/ùê/) && (m/[^ã]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åíõ$/ùê/) && (m/ãùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/í$/ê/) && (m/ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïí$/ùê/) && (m/[^ã]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ùê/) && (m/ãùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ê/) && (m/ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/è$/ê/) && (m/ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/íé$/ê/) && (m/ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/áñ$/ùê/) && (m/ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïê$/ùê/) && (m/[^ã]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïà$/ùê/) && (m/[^ã]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/ùê/) && (m/ãùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/õà$/ùê/) && (m/ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïå$/ùê/) && (m/[^ã]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åå$/ùê/) && (m/ãùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïçï$/éê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïíõ$/éê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/í$/ê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïí$/éê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/è$/ê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/íé$/ê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/áñ$/éê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïê$/éê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïà$/éê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/õà$/éê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïå$/éê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åçï$/éê/) && (m/[öîòûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åíõ$/éê/) && (m/[öîòûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/í$/ê/) && (m/[öîòûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/éê/) && (m/[öîòûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ê/) && (m/[öîòûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/è$/ê/) && (m/[öîòûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/íé$/ê/) && (m/[öîòûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åçïóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åíõóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/éíóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åíóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/éåóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/éèóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/éíéóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ññ$/éê/) && (m/îéê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/áñ$/éê/) && (m/[öûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/éê/) && (m/[öîûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åà$/éê/) && (m/[öîûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/àà$/éê/) && (m/îéê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/õà$/éê/) && (m/[öûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åå$/éê/) && (m/[öîûýþ]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/áñóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/åêóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/õàóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ååóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïçï$/ïê/) && (m/ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïíõ$/ïê/) && (m/ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/éí$/ïê/) && (m/[çöëèûýþ]ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ùí$/ïê/) && (m/[^çöëèûýþ]ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïí$/ïê/) && (m/ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/éå$/ïê/) && (m/[çöëèûýþ]ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ùå$/ïê/) && (m/[^çöëèûýþ]ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/éè$/ïê/) && (m/[çöëèûýþ]ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ùè$/ïê/) && (m/[^çöëèûýþ]ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/éíé$/ïê/) && (m/[çöëèûýþ]ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ùíé$/ïê/) && (m/[^çöëèûýþ]ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/áñ$/ïê/) && (m/ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/õà$/ïê/) && (m/ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïå$/ïê/) && (m/ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïçï$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïíõ$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ùí$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïí$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/á$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïê$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/õ$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ï$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ù$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ùè$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ùíé$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/á$//) && (m/÷$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ï$//) && (m/÷$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/õ$//) && (m/÷$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïê$//) && (m/÷$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ïí$//) && (m/÷$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ù$//) && (m/÷$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ùè$//) && (m/÷$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ùí$//) && (m/÷$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/ùíé$//) && (m/÷$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/A/)){push @list, $id}}
$_=$u;
                    if ((s/$/ùê/) && (m/[^î]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/á$/ùê/) && (m/[^î]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/ï$/ùê/) && (m/[^î]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/ù$/ùê/) && (m/[^î]ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/åî$/îùê/) && (m/[^åêìîø]îùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/$/ùê/) && (m/åîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/åî$/êîùê/) && (m/êîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/ïî$/îùê/) && (m/ìîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/åî$/øîùê/) && (m/øîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/îá$/îùê/) && (m/[^î]îùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/îï$/îùê/) && (m/[^î]îùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/îù$/îùê/) && (m/[^î]îùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/ïë$/ëéê/) && (m/[^áåéêïõùø]ëéê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/$/éê/) && (m/[áåéïõù]ëéê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/åë$/êëéê/) && (m/êëéê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/åë$/øëéê/) && (m/øëéê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/$/éê/) && (m/[çöþèý]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/á$/éê/) && (m/[çöëèþý]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/ï$/éê/) && (m/[çëè]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/å$/éê/) && (m/[öþý]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/é$/éê/) && (m/[çöëèþý]éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/$/ïê/) && (m/ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/á$/ïê/) && (m/ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/ï$/ïê/) && (m/ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/ù$/ïê/) && (m/[^çè]ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ïê/) && (m/[çè]ïê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/$/îùê/) && (m/îîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/á$/îùê/) && (m/îîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/ï$/îùê/) && (m/îîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/ù$/îùê/) && (m/îîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/S/)){push @list, $id}}
$_=$u;
                    if ((s/á$/ùê/) && (m/îîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/X/)){push @list, $id}}
$_=$u;
                    if ((s/ï$/ùê/) && (m/îîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/X/)){push @list, $id}}
$_=$u;
                    if ((s/ù$/ùê/) && (m/îîùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/X/)){push @list, $id}}
$_=$u;
                    if ((s/åå$/ùê/) && (m/ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/ùê/) && (m/ùê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/ê$/å/) && (m/åå$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ñ/) && (m/[^é]ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/åà$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/E/)){push @list, $id}}
$_=$u;
                    if ((s/ù$/á/) && (m/[^çöëèþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/é$/á/) && (m/[çöëèþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/å$/á/) && (m/á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/á/) && (m/á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/ïê$/á/) && (m/[^öãþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/ïà$/á/) && (m/[^öãþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/á/) && (m/[öãþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/åà$/á/) && (m/[öãþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/$/á/) && (m/[^ë]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/ïë$/ëá/) && (m/[^áåöéêïõãþûøùàñ]ëá$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/ë$/ëá/) && (m/[áåéïõùàñ]ëá$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/åë$/ëá/) && (m/[öãþû]ëá$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/åë$/êëá/) && (m/êëá$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/åë$/øëá/) && (m/øëá$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/í$//) && (m/á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/íé$//) && (m/á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/è$//) && (m/á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ñ/) && (m/[^é]ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/åà$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/ê$/ñ/) && (m/[åéõ]ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/åî$/îñ/) && (m/[^áåúéêïõùø]îñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/ø$/ñ/) && (m/[áåéïõù]îñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/åî$/êîñ/) && (m/êîñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/åî$/øîñ/) && (m/øîñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/í$//) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/íé$//) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/è$//) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/I/)){push @list, $id}}
$_=$u;
                    if ((s/ù$/á/) && (m/[^çöëèþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/é$/á/) && (m/[çöëèþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/å$/á/) && (m/á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/á/) && (m/á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/ïê$/á/) && (m/[^öãþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/ïà$/á/) && (m/[^öãþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/á/) && (m/[öãþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/åà$/á/) && (m/[öãþûý]á$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ñ/) && (m/[^é]ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/åà$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/H/)){push @list, $id}}
$_=$u;
                    if ((s/á$//) && (m/[^åêïø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/õ$//) && (m/[^åêïø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ïí$//) && (m/[^åöêïãþûýø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/å$//) && (m/[^åêïø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ù$//) && (m/[^çåöêëïèþûýø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/é$//) && (m/[çöëèþûý]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/åê$//) && (m/[öþûý]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷$//) && (m/[^åöêïãþûýø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/áí$//) && (m/[^åêïø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/áíé$//) && (m/[^åêïø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/áè$//) && (m/[^åêïø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ê/) && (m/[^é]ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ê/) && (m/[áåïõàñ]ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/å÷$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñí$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñíé$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñè$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñí$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñíé$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñè$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/å/) && (m/[^öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/á$/å/) && (m/[öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/à$/å/) && (m/[^öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/å/) && (m/[öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/í$//) && (m/å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/é$/å/) && (m/éå$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/å/) && (m/[^öéãýø]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/$/å/) && (m/[öý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ê$/å/) && (m/éå$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/éê$/øå/) && (m/øå$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñí$/å/) && (m/[^öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/áí$/å/) && (m/[öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñíé$/å/) && (m/[^öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/áíé$/å/) && (m/[öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/ñè$/å/) && (m/[^öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/áè$/å/) && (m/[öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/á$/ï/) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/ï/) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/í$//) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ï/) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ï/) && (m/[éþû]ëï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/$/ï/) && (m/[÷çäóô]ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/áí$/ï/) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/áíé$/ï/) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/áè$/ï/) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/K/)){push @list, $id}}
$_=$u;
                    if ((s/á$//) && (m/[^åêïø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/õ$//) && (m/[^åêïø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/ïí$//) && (m/[^åöêïãþûýø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/å$//) && (m/[^åêïø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ê/) && (m/[^é]ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/å/) && (m/[^öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/á$/å/) && (m/[öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/à$/å/) && (m/[^öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/å/) && (m/[öãûý]å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/í$//) && (m/å$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/é$/å/) && (m/éå$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/á$/ï/) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/õ$/ï/) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/í$//) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ï/) && (m/ï$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/J/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/à$//) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/áí$/ø/) && (m/[öþûý]ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/ñí$/ø/) && (m/[^öþûý]ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/áíé$/ø/) && (m/[öþûý]ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/ñíé$/ø/) && (m/[^öþûý]ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/áè$/ø/) && (m/[öþûý]ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/ñè$/ø/) && (m/[^öþûý]ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/á$//) && (m/[^ø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/õ$//) && (m/[^ø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/ïí$//) && (m/[^öãþûýø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/å$//) && (m/[^ø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/ï÷$//) && (m/[^öãþûýø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/áí$//) && (m/[^ø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/áíé$//) && (m/[^ø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/áè$//) && (m/[^ø]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/N/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/à$//) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/ëá$/ïë/) && (m/îïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/ëõ$/ïë/) && (m/îïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/ëïí$/ïë/) && (m/îïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/ëå$/ïë/) && (m/îïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/ñôá$/åîïë/) && (m/åîïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/áôá$/ïîïë/) && (m/ïîïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/ñô$/åîïë/) && (m/åîïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/áô$/ïîïë/) && (m/ïîïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/ñôáí$/åîïë/) && (m/åîïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/áôáí$/ïîïë/) && (m/ïîïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/ñôáíé$/åîïë/) && (m/åîïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/áôáíé$/ïîïë/) && (m/ïîïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/ñôáè$/åîïë/) && (m/åîïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/áôáè$/ïîïë/) && (m/ïîïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/F/)){push @list, $id}}
$_=$u;
                    if ((s/øåçï$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øåíõ$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øéí$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øåí$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øñ$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øåê$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øà$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øå$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øé$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øéè$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øéíé$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/îñ$/åîø/) && (m/åîø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/îà$/åîø/) && (m/åîø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/îåí$/åîø/) && (m/åîø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/îå$/åîø/) && (m/åîø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/îé$/åîø/) && (m/åîø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/îåê$/åîø/) && (m/åîø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/îñí$/åîø/) && (m/åîø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/îñíé$/åîø/) && (m/åîø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/îñè$/åîø/) && (m/åîø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëá$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëõ$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëïí$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëå$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëé$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëï÷$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëáí$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëáíé$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëáè$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ôñ$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ôà$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ôåí$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ôå$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ôé$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ôåê$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ôñí$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ôñíé$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ôñè$/ïôø/) && (m/ïôø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ãá$/åã/) && (m/[^áåéïì]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/êãá$/åã/) && (m/[áåéï]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øãá$/åã/) && (m/ìåã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ãõ$/åã/) && (m/[^áåéïì]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/êãõ$/åã/) && (m/[áåéï]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øãõ$/åã/) && (m/ìåã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/êãåí$/åã/) && (m/[áåé]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ãå$/åã/) && (m/[^áåéïì]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/êãå$/åã/) && (m/[áåéï]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øãå$/åã/) && (m/ìåã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ãù$/åã/) && (m/[^áåéïì]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/êãù$/åã/) && (m/[áåéï]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øãù$/åã/) && (m/ìåã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/å÷$//) && (m/[áîòñ]ã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/êãå÷$/åã/) && (m/[áåé]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ãáí$/åã/) && (m/[^áåéïì]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/êãáí$/åã/) && (m/[áåéï]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øãáí$/åã/) && (m/ìåã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ãáíé$/åã/) && (m/[^áåéïì]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/êãáíé$/åã/) && (m/[áåéï]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øãáíé$/åã/) && (m/ìåã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ãáè$/åã/) && (m/[^áåéïì]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/êãáè$/åã/) && (m/[áåéï]åã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øãáè$/åã/) && (m/ìåã$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëá$/åë/) && (m/[öþû]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øëá$/åë/) && (m/[ìîò]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëõ$/åë/) && (m/[öþû]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øëõ$/åë/) && (m/[ìîò]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëïí$/åë/) && (m/[öþû]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øëïí$/åë/) && (m/[ìîò]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëå$/åë/) && (m/[öþû]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øëå$/åë/) && (m/[ìîò]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëé$/åë/) && (m/[öþû]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øëé$/åë/) && (m/[ìîò]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëï÷$/åë/) && (m/[öþû]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øëï÷$/åë/) && (m/[ìîò]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëáí$/åë/) && (m/[öþû]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øëáí$/åë/) && (m/[ìîò]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëáíé$/åë/) && (m/[öþû]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øëáíé$/åë/) && (m/[ìîò]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ëáè$/åë/) && (m/[öþû]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/øëáè$/åë/) && (m/[ìîò]åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ìá$/åì/) && (m/åì$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ìõ$/åì/) && (m/åì$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ìïí$/åì/) && (m/åì$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ìå$/åì/) && (m/åì$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ìù$/åì/) && (m/åì$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ìï÷$/åì/) && (m/åì$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ìáí$/åì/) && (m/åì$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ìáíé$/åì/) && (m/åì$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ìáè$/åì/) && (m/åì$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ñí$/é/) && (m/[áâäåéìîïòóô]é$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/áí$/é/) && (m/[^áâäåéìîïòóô]é$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ñíé$/é/) && (m/[áâåéìîïòó]é$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ñíé$/é/) && (m/[áòó]ôé$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/áíé$/é/) && (m/[^áâäåéìîïòóô]é$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ñè$/é/) && (m/[áâäåéìîïòóô]é$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/áè$/é/) && (m/[^áâäåéìîïòóô]é$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/áí$/ù/) && (m/ù$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/áíé$/ù/) && (m/ù$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/áè$/ù/) && (m/ù$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/í$//) && (m/[áñ]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/íé$//) && (m/[áñ]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/è$//) && (m/[áñ]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/á$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/õ$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ïí$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/å$//) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/å$/éî/) && (m/îéî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/ù$/éî/) && (m/òéî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/$/éî/) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/áí$/éî/) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/áíé$/éî/) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/áè$/éî/) && (m/éî$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/O/)){push @list, $id}}
$_=$u;
                    if ((s/á$//) && (m/[^åêëïøñ]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/õ$//) && (m/[^åêëïøñ]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ùí$//) && (m/[^åöêëïãþûýøñ]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/å$//) && (m/[^åêëïøñ]$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ïçï$/éê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ïíõ$/éê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/í$/ê/) && (m/ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/í$/ê/) && (m/[^é]ê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ïí$/éê/) && (m/éê$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ëá$/åë/) && (m/åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ëõ$/åë/) && (m/åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ëïí$/åë/) && (m/åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ëå$/åë/) && (m/åë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ëá$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ëõ$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ëïí$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ëå$/ïë/) && (m/ïë$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ñ$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/åí$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ñí$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ñíé$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ñè$/ø/) && (m/ø$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/é$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/å$/ñ/) && (m/[^é]ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/à$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/åê$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/åà$/ñ/) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ê$/ñ/) && (m/[åéõ]ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/åî$/îñ/) && (m/[^áåúéêïõùø]îñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/ø$/ñ/) && (m/[áåéïõù]îñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/åî$/êîñ/) && (m/êîñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/åî$/øîñ/) && (m/øîñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/í$//) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/íé$//) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
                    if ((s/è$//) && (m/ñ$/))
           { ($fl,$id)=getflag($dbh,$_);
if ($fl && ($fl=~m/G/)){push @list, $id}}
$_=$u;
   ($fl,$id)=getflag($dbh,$_);
   if ($fl) {push @list, $id}

  @list
} 1

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>