The easiest way might be something like this:

#!/usr/bin/perl -w
use strict;

my $data = '12-34-2001020713';

my @nums = $data =~ /\d\d/g;

print "@nums\n";
[download]

But you end up with the year split between two elements of the array. I suppose it's not too difficult to join them together again.

--
<http://www.dave.org.uk>

"Perl makes the fun jobs fun
and the boring jobs bearable" - me