map {s/\cM//g} my @values = $q -> param ($key);