foreach $form (@form_data){
    (my $one, my $two) = split(/=/, $form);
    if ($one =~ m/\+/){
        $one =~ s/(\+)/" "/eg;
    }
    if ($two =~ m/\+/){
        $two =~ s/(\+)/" "/eg;
    }
    $one =~ s/%([\da-fA-F][\dA-Fa-f])/pack("C", hex($1))/eg;
    $two =~ s/%([\da-fA-F][\dA-Fa-f])/pack("C", hex($1))/eg;
    $form{$one} = $two;
    $params{$one} = $two;
}