my $u = URI->new('http://www.com/index.pl?id=<idparm>&foo=bar&etc');
my @val = grep /<([^>]+)/, map $u->query_param($_), $u->query_param();
print $_,$/ for @val;