<% my($item, $url, @html); while (@_) { ($item, $url) = splice(@_,0,2); next if $item =~ /^\s*Main\s+Menu\s*$/i; push @html, qq!$item!; } %> <%= join(' | ', @html) %>