
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
