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

##</code><code>##

    my ($mon, $day, $year) = split(/\//, $_[0]);  
    my ($hour, $min, $sec) = split(/:/, $_[0]);

    print "$mon - $day - $year\n";
    print "$hour - $min - $sec\n";

##</code><code>##

    my ($date) = @_;
    my ($time);

##</code><code>##

    my ($datetime) = @_;
    my ($date, $time) = split / /, $datetime;