($parameter) = @ARGV; my ($value,$name,$pair); foreach $pair (split(/&/,$parameter)) { $pair =~ tr/+/ /; ($name,$value) = split(/=/,$pair); }