Help for this page
/:swiss|Q9L572|DNAA_STRPY /:tremblnew|AAK98805|AAK98805 /:swiss|O08397|DNAA_STRPN
if ($array[1] eq /^\/:swiss| (\d+)|(\d+)/) ... print $array[1]; }