Awesome thanks ... And the open the folder and process all files in it would look something like ..

opendir XX, "/somefile/somewhere" or die "Couldn't open the  directory
+: $!";
while ($_ = readdir (XX))
{
$/ = "\n1=";
while (<>) {
    my @fields = split /\n/;
    s/^[1-6]=// for @fields;
    print +(join ',', @fields[0 .. 5]), "\n";
}
[download]

Sorry my perl scripting is newb in the extreme ... :-)