perl -e "print map(qq($_\n),glob('*.txt'))"