#$path =~ s{\?.*$}{};
#$path =~ s{[^/]+$}{};

$path =~ s{[^/\?]*(\?.*)?$}{};