Your match doesn't work because you have whitespace in your regex, and you don't use the /x modifier, and you don't escape the '|' - oh and you cannot match a regex with 'eq' - you need '=~' (or match the $_ var) .

You might also try simplifying the match:

foreach (@array) {           # means foreach $_ (@array) {
  next unless /^\/:swiss\|/; # means next unless $_ =~ /^\/:swiss\|/;
  print;                     # means print $_;
}
[download]

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.
[download]