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

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

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

print "@nums\n";