<% my($item, $url, @html); while (@_) { ($item, $url) = splice(@_,0,2); push @html, qq!$item!; } %> <%= join(' | ', @html) %>