my $RedirectQueryString = $ENV{REDIRECT_QUERY_STRING};
my @AlleParameterPaare = split('/', $RedirectQueryString);

foreach my $ParameterPaar (@AlleParameterPaare) {
    my @ParameterPaarTeil = split('-', $ParameterPaar);
    $self->query->param("$ParameterPaarTeil[0]" => $ParameterPaarTeil[1]);
}