Select Code to Download

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

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