perl -e "while (<*>) {open(F,$_) or next;while(<F>){print}/}}" > ..\newfile.txt