#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

for (qw(/key/123 /123-456)) {
	my ($id) = m!(?|/key/(\d+)|/(\d+)-\d+)!;
	say $id;
}
__DATA__
123
123