my ($y, $m, $d, $h, $min, $s) = split /[- :]/, $timestamp;
my ($y, $m, $d, $h, $min, $s) = $timestamp =~ /^(\d{4})-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)$/;   # more robust