Select Code to Download

#!/usr/bin/perl --
use Regexp::English;
...
    ->digit, "\n";
__END__
(?^:((?:\d+)))

my( @numbers ) = $str -~  m{ (\d+) }gx;

use YAPE::Regex::Explain;
print YAPE::Regex::Explain->new(
qr{ (\d+) }x,
...
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

$ perl -MRegexp::Common -e " print $RE{num}{int} "
(?:(?:[+-]?)(?:[0123456789]+))

#!/usr/bin/perl --
use strict; use warnings;
my $REint = qr{
...
1
1
2