Re: capture value from two patterns

[Haarg]

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