$  perl -E 'my $c = reverse  "/foo/bar/baz/bat";  say "matched ", scalar reverse ($1)  if  $c =~ m{(.+?)/};'
matched bat

##</code><code>##

$  perl -E 'my $c = "/foo/bar/baz/bat";  say "matched $1" if $c =~ m{/(\w+)$};'
matched bat

##</code><code>##

$ perl -E 'my $c = "/foo/bar/baz/bat";  say "matched $1" if $c =~ m{/([^/]+)$};'
matched bat