note
ybiC
Adding <b>qu|</b> at the front of $1 and removing <b>q</b> from <b>[...]</b> provides support for the "qu" combination. My first attempted tweak was to add <b>(qu)</b> inside $1's <b>[...]</b> but that hosed things for words like "jumped".
<p>
Bonus points for guessing the cliche phrase I tested this with. <i><grin></i>
<code>
#!/usr/bin/perl -w
use strict;
while(<>) {
s{ \b(qu|[bcdfghjklmpnrstvwxyz]*)([aeiou]+)(\w*) }
{ if($1) {$2.$3.$1.'ay'}
else {$2.$3."way"} }egix;
print;
}
# END
</code>
cheers,
<br> [ybiC]
3586
3593