sub decodeRequestParams { my ($self, $c) = @_; my @params = $c->request->param; my %requestParams = (); my $ua = Parse::HTTP::UserAgent->new( $c->request->user_agent ); for my $key (@params) { if ($ua =~ m/MyBadBadKitty/i) { $requestParams{$key} = decode("iso-8859-1", $c->request->param($key)); } else {$requestParams{$key} = $c->request->param($key);} } return (%requestParams); }