c:\@Work\Perl\monks>perl -wMstrict -le
"print
   map  sprintf(q{`%s' }, $_),
   grep m{ \A [aeiou] }xms,
   qw(elements comprising this list unknown in advance)
   ;
"
`elements' `unknown' `in' `advance'

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"printf do {
   my @elems =
     grep m{ \A [aeiou] }xms,
     qw(elements within this list unknown in advance)
     ;
   qq/@{[ q{`%s' } x @elems ]}/, @elems;
   };
"
`elements' `unknown' `in' `advance'