2:56 >perl -Mstrict -wE "my $s = q[My 25 cents.]; my ($p, $q); $s =~ /(?(?{$p = pos})\d+(?{$q = pos}))/; say $+{myref}; say $p, q[ --> ], $q;" 25 3 --> 5 2:56 >