map {
   s/.../.../seg;         <-- Escapes the index.
   $form_data{$_} =~ ...  <-- Should be using unescaped index.
   ...
}