my ($date, $time) = split / /, $datetime; $date = join '/', reverse split m[/], $date; $datetime = "$date $time";