if ($param) {
    $param =~ /^(id|key|limit):(\S*)$/ or die "Malformed value for parameter: '$param'";
    my ($key,$value) = ($1,$2);
    $ENV{"C:$key"} = $value;
};

##</code><code>##

if ($param) {
    $param =~ /^(\w+):(\S*)$/ or die "Malformed value for parameter: '$param'";
    my ($key,$value) = ($1,$2);
    $ENV{"C:$key"} = $value;
};