if ($uri =~ m{([^/]+)\z}{
   print $1, $/;
}

##</code><code>##

$filename =~ s/\.[^.]+\z//;