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