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'