Select Code to Download

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

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