Select Code to Download

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

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

    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")