Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
$filename =~ s/\.[^.]+\z//;
```