Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
$text_match = qr/(\D+)(\d+)(?{ $plus = $+;$N = $^N })(\D+)/;
$text =~ $text_match;
print "$plus, $N\n";

Select or download this
```
__END__
123, abc123
123, 123
```