print $1 if /\/([^/?]+)(:?\?.*)?$/;

##</code><code>##

print $1 if $path =~ /\/([^/]+)$/