perl -pe"BEGIN{@ARGV = map{ glob} @ARGV; print'subscribername,telephone,email,language', $/;}" *.txt > subscribers.all

##</code><code>##

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