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

opendir DH, "/a/b/c/perl/dl_parser/down/" or die "Couldn't open the  directory +: $!";
while ($_ = readdir (DH))
{
$/ = "\n1=";
    my @fields = split /\n/;
    s/^[1-6]=// for @fields;
    print +(join ',', @fields[0 .. 5]), "\n";
}

exit

##</code><code>##

101130.TXT,,,,,
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
240429.TXT,,,,,
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
110208.TXT,,,,,
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
081221.TXT,,,,,
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
100807.TXT,,,,,
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
Use of uninitialized value in join or string at lineJumper.pl line 11.
081219.TXT,,,,,