perl -e 'opendir D, "."; print join("\n", grep {/Q\.PACES/} readdir D), "\n";'