PerlでURLのパラメータを取り出す簡単な方法

もっと簡単な方法はないだろうか？

>/perl
$ perl -MData::Dumper -e '%a = split("[&=]","foo=1&bar=2"); print Dumper(\%a);'
$VAR1 = {
          'bar' => '2',
          'foo' => '1'
        };

#おっ。いい感じ。

>/perl
$ perl -MData::Dumper -e '%a = split("[&=]","foo=1&bar="); print Dumper(\%a);'
$VAR1 = {
          'bar' => undef,
          'foo' => '1'
        };

#これもいい感じ。

>/perl
$ perl -MData::Dumper -e '%a = split("[&=]","foo=&bar="); print Dumper(\%a);'
$VAR1 = {
          'bar' => undef,
          'foo' => ''
        };

#ちょっと違和感

>/perl
$ perl -MData::Dumper -e '%a = split("[&=]","foo=&bar"); print Dumper(\%a);'
$VAR1 = {
          'bar' => undef,
          'foo' => ''
        };

#むむむ。ちょっと違和感

>/perl
$ perl -MData::Dumper -e '%a = split("[&=]","foo&bar"); print Dumper(\%a);'
$VAR1 = {
          'foo' => 'bar'
        };

#かなり違和感