Help for this page
Regex Result (.*)(\d*) 'I have 2 numbers: 53147', '' ... (.*?)(\d*) '', '' (.*?)(\d+) 'I have ', '2' (.*)(\d+)$ 'I have 2 numbers: 5314', '7'
use strict; my @re= qw| ... my $r=qr|$_|; print "$_\t'", join( "', '",$test=~/$r/),"'\n"; }