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

$/ = "\n1=";
while (<>) {
    my @fields = split /\n/;
    s/^[1-6]=// for @fields;
      open (MYFILE, '>/a/b/c/perl/dl_parser/logData.txt');
      print MYFILE "+(join ',', @fields[0 .. 5]), "\n"";
      close (MYFILE); 
    
}