#! perl -slw
use strict;
use re qw[ eval ];
use Data::Dump qw[ pp ];


my $reY =  '(\d{4})(?{ $y  = $^N })';;
my $reM =  '(\d{2})(?{ $m  = $^N })';;
my $reD =  '(\d{2})(?{ $d  = $^N })';;
my $reH =  '(\d{2})(?{ $h  = $^N })';;
my $reMN = '(\d{2})(?{ $mn = $^N })';;
my $reS =  '(\d{2})(?{ $s  = $^N })';;

my $reDT = "$reY-$reM-$reD\\s+$reH:$reMN:$reS";

local our( $y, $m, $d, $h, $mn, $s );

'2010-10-06 20:55:31' =~ $reDT;

print "$y, $m, $d, $h, $mn, $s";

__END__
c:\test>junk57.pl
2010, 10, 06, 20, 55, 31