use strict;

for (qw(foo foo& &foo foo&bar)) {
    /([^&]+)\&/;
    print "$_ - $1\n";
}

##</code><code>##

use strict;
use URI;

my $uri = URI->new();
$uri->query('THING=super%20hero&KEY=foobar');

my %hash = $uri->query_form();

print $hash{KEY}, "\n";