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


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

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

our %match = ();

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

pp \%match;;

__END__
c:\test>junk57.pl
{ d => "06", h => 20, "m" => 10, mn => 55, "s" => 31, "y" => 2010 }