'/a/b/c/d/e/abc00000'

##</code><code>##

  my $s = '/a/b/c/d/e/abc00000';
  my ($id) = $s =~ m{/(.+?\d+)$};
  print $id, "\n";

  __OUTPUT__
  a/b/c/d/e/abc00000

##</code><code>##

  my ($id) = $s =~ m{/([^/]+\d+)$};