Working (identical?) version:

   while (my $line = <LOG>)
   {
      $Body .= "${line}<br>";
   }