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