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

##</code><code>##

my $match_re = qr{ ^ /:swiss \| \w+ \| \w+ }x;
foreach my $line (@array_of_strings) {
    if($line =~ /$match_re/) {
        ...
    }
}