<%init> use Data::Dumper; my $url = $r->uri; $url =~ s/\/mac\//..\//; my $args_str = '?'; foreach(keys %ARGS){ $args_str .= '&'.$_.'='.$ARGS{$_} if($_ !~ /^c$|^submit$|^Submit$/); } $m->redirect($url.$args_str);