If you use Perl's -l switch, you can simplify that further to just ...

perl -le 'print for <Q.PACES*>'

    --k.