http://qs321.pair.com?node_id=1039811

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

Here's what I want:

0 1 1 1998

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