my $date = '2013-06-04 01:23:00'; # June 4th
    $date =~ /^((\d{4})-(\d{2})-(\d{2})) ((..):(..):(..))$/;

##</code><code>##

    my $date = $1; # 2013-06-04
    my $yyyy = $2; # 2013
    my $mm   = $3; # 06
    my $dd   = $4; # 04
 
    my $time = $5; # 01:23
    my $hh   = $6; # 01
    my $mm   = $7; # 23

##</code><code>##

    use Data::Dump;
    my @a = $date =~ /^((\d{4})-(\d{2})-(\d{2})) ((..):(..):(..))$/;
    dd @a;
__END__
("2013-06-04", 2013, "06", "04", "01:23:00", 23, "00")