Help for this page

Select Code to Download

Select or download this
```
my ($dir) = m{/([^/]+)/[^/]*$};
```

Select or download this

my ($dir) = m{
               /        # Preceeded by a slash.
...
               [^/]*    # Preceeded by non-slashes, the file name.
               $        # End of string.
            }x;