If I understand you correctly,

perl -pe"BEGIN{@ARGV = map{ glob} @ARGV; print'subscribername,telephon
+e,email,language', $/;}" *.txt > subscribers.all
[download]

would probably do the job.

But that said, if you simply want to concatenate all the files into one big file

copy con subscribers.all
subscribername,telephone,email,language
^Z
type *.txt >>subscribers.all
[download]

would also do it.

my $dir = "location of your file directory";
my $filename = "the location & name of your new file";

open (LOGFILE, ">$filename") or die "Can't create logfile: $!";

opendir (DATADIR, $dir) or die "Can't open $dir: $!";

while( defined ($file = readdir DATADIR) ) {
    next if $file =~ /^\.\.?$/;
    open (INFILE, "$dir\\$file") or die "Can't open $dir: $!";
        print LOGFILE "$file|";
        $/ = '';
    while (<INFILE>) {
        @lines = $_;
            }
foreach (@lines) {
            print LOGFILE $_;
}
        }
close (INFILE);
[download]

Also, I'm pretty new with Perl, so more than likely there's a better, shorter way to do it that a more experienced Monk could share. HTH,
WB

Just wondering why you would set $/ to the null string?

First I would suggest doing so in a local-context (although it doesn't hurt in such a small script as yours) so it gets automatically "reset" when you leave the enclosing scope.

By setting $/ to the null string, the input record separator becomes one or more blank lines (multiple blank lines gets collapsed into one).

If you just want to slurp the whole of the file at once (without collapsing multiple blank lines into one as a side effect), do a

undef $/;

and then you can drop the whole

while (<INFILE>) {@lines = $_;}
foreach (@lines) {print LOGFILE $_;}
[download]

loop and just do a

$line=<INFILE>; print LOGFILE, $line;

Staying closer to your script

while (my $line=<INFILE>){print LOGFILE,$line;}

is somewhat more elegant, IMHO.

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

Thanks for the input on this point, Count. I originally used this script to get name/address information off of cover sheets used for mailing reports. I needed to slurp the information on each page into one line. However, I think the question in this case is going to require your approach. ++For the explanation.