my $line;
while (<>) {
  chomp;
  if (m{^\d\d/\d\d/\d\d \d\d:\d\d:\d\d }) {
    print $line, "\n" if $line;
    $line = '';
  }
  $line .= (' ' . $_);
}
print $line, "\n" if $line;