my $date = "01.01.1999 hh:mm";
$date =~ /\A(\d\d)\.(\d\d)\.(\d\d\d\d)/;
my $iso = "$3-$2-$1";