my @formfields = $query->param;
for my $i(@formfields) {
  my $j = lc $i;
  $formdata{$j} = $query->param("$i");
  $formdata{$j} =~ s/\cM//g;
}