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'