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