Help for this page
'/a/b/c/d/e/abc00000'
my $s = '/a/b/c/d/e/abc00000'; my ($id) = $s =~ m{/(.+?\d+)$}; ... __OUTPUT__ a/b/c/d/e/abc00000
my ($id) = $s =~ m{/([^/]+\d+)$};