local our $length;
$x =~ /(\d+)(?{ $length = length($1) })$/;

##</code><code>##

local our $length;
$x =~ /(\d+)(?{ $length = length($^N) })$/;