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