use URI;
use URI::QueryParam;

my $u = URI->new('http://www.com/index.pl?id=<idparm>&etc');
print $u->query_param('id'), "\n";

##</code><code>##

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;

##</code><code>##

@value = $URL =~ /(<[^>]+>)/;