/:swiss|Q9L572|DNAA_STRPY
/:tremblnew|AAK98805|AAK98805
/:swiss|O08397|DNAA_STRPN


##</code><code>##


if ($array[1] eq /^\/:swiss| (\d+)|(\d+)/)
{
print $array[1];
}