>perl -wMstrict -le
"print qq{perl ver. $]};
 my $rx = qr{ ((?> \d+)) }xms;
 'abc1234def' =~ $rx;
 print qq{'$1'};
"
perl ver. 5.008009
'1234'