if($array[1] =~ m{ /:swiss \| \w+ \| \w+ }x) {
    ...
}