$mech->submit_form(
  $form_string, $d,
  fields => { 
    split( /=>\s+|,\s+/, $param_string ) 
  }
);