sub changedate {
  join '-', reverse shift =~ /\d+/g  
}