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

my $string = "20090719-074248";

my ($year,$month,$day,$hour,$min,$sec) = my @data =
    ($string=~ m/(\d{4})(\d{2})(\d{2})-(\d{2})(\d{2})(\d{2})/);

print  "data = @data\n"; #digits as a list

print  "year = $year\n", 
       "month = $month\n",
       "day   = $day\n",
       "hour  = $hour\n",
       "min   = $min\n",
       "sec   = $sec\n";
       
__END__
PRINTS:

data = 2009 07 19 07 42 48
year = 2009
month = 07
day   = 19
hour  = 07
min   = 42
sec   = 48