my $message;
while (<FILE>) {
   if ( m/\d\d \d\d\/\d\d\/\d\d \d\d:\d\d:\d\d:\d\d\d .*/ ) {
      $message .= $_
   }
}