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

##</code><code>##

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