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