RegEx Headaches

oryx3 has asked for the wisdom of the Perl Monks concerning the following question:

Here's what I've got:

  DB<30> x $_
0  'ActionLogs.1.1998.xml'

  DB<31> x /(\d+\.)+.*xml/g
0  1998.

  DB<32> x /(\d+)+.*xml/g
0  1
[download]

Here's what I want:

0  1
1  1998
[download]

How do I get from what I've got to what I want?