#!usr/bin/perl
use strict;
use warnings;

$/ = "\n1=";

open my $fh, '>', '/a/b/c/perl/dl_parser/logData.txt' or die $!;

while (<>) {
	my @fields = split /\n/;
	s/^[1-6]=// and s/\s+$// for @fields;
	print $fh ( join ',', map qq/"$_"/, @fields[ 0 .. 5 ] ) . "\n";
}

close $fh;