<% my ( $url, @subs ) = @_; $url .= ( ($url =~ /\?/) ? '&' : '?' ). 'sub='; %>