http://www.perlmonks.org?node_id=1003933


in reply to Perl Regex

use v5.10.0;
use strict;

my $n;
for my $s ( '/p/q/38948394' , 'b/62837893' , '/a/p/djo' , '/743339' )
{
  $s =~ m{/ (?<d>[0-9]+) $}x
    and $n = $+{d}, say "number: $n";
}

__END__
number: 38948394
number: 62837893
number: 743339

[download]

In Section Seekers of Perl Wisdom