s{
   (\d{1,2}) ([./])
   (\d{1,2}) \2
   (\d{4}) \s+ (\d{1,2}):(\d{2})
 }
 {
   my @a=($2 eq ".") ? ($4,$3,$1) : ($4,$1,$3);
   sprintf( "%s-%02d-%02d %02d:%s", @a,$5,$6 )
 }ex;