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?