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