Select Code to Download

use strict;
use warnings;
...
my %user = map {$_ => param($_)} grep /^user_/, param();
 
print Dumper \%user;

./foo.pl "user_foo=bar&user_bar=baz&something=else"