in reply to How to replace in one regexp

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

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

[download]

In Section Seekers of Perl Wisdom