my $number_re = qr{
    (?(DEFINE)
      (?<int_pat>          \d+ )
    )
    (?<int>(?&int_pat))
}x;