theorbtwo wrote: >  That regex is m|(.[^/]+)$/

Thanks for that answer, which I think is correct in several respects (including the way it provides a direct answer to the question as originally posed alongside the statement of fact that there might be an easier way to do the job).

The one thing I would point out is that maybe you meant to say:

 m|(.[^/]+)$| -or-

 /(.[^/]+)$/

...All the world looks like -well- all the world, when your hammer is Perl.
---v