sub changedate { join '', reverse split /\b/, shift; }