note RedTussock Awesome thanks ... And the open the folder and process all files in it would look something like .. <code> 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"; } </code> Sorry my perl scripting is newb in the extreme ... :-) 997645 997646