#!/usr/bin/perl --
use strict; use warnings; use Data::Dump; use Carp::Always;
use Regexp::English;
my $string = "nPqwe=2456fnraqe=13910feoption"; 
my $rex = Regexp::English
-> remember
    -> digits
-> end
;;;;
print "$rex\n";
while( $string =~ m{$rex}g ){
    print "$1\n";
}
__END__
(?^:(\d+))
2456
13910