my ($id) = (m!/key/(\d+)!);

##</code><code>##

my ($id) = (m!/(\d+)-\d+!);

##</code><code>##

my ($id) = (m!/key/(\d+)|/(\d+)-\d+!);

##</code><code>##

my $id = $1 // $2 if m!/key/(\d+)|/(\d+)-\d+!;