my $match= qr/(\d+)/->match($subject);
say $match->captures->[0] if $match;