perl -e 'print $_,$/ for (<Q.PACES*>)'