my ($year, $month, $day, $hour, $min, $sec) = 
    split /[- :]/, $_[0];