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

##</code><code>##

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