in reply to Pig Latin
s/\b(qu|[^aeiou\s]*)(\w+)/$1?$2.$1.ay:$2.way/eg;
Score: 48
Score: 48
Results:$_ = <<EOF; this is the time for all good me no come to the aid of their country. test: quest EOF s/\b(qu|[^aeiou\s]*)(\w+)/$1?$2.$1.ay:$2.way/eg; print $_,"\n";
This is sort of a combination between what chromatic and japhy had. It keeps punctuation and keeps the 'qu' case.isthay isway ethay imetay orfay allway oodgay emay onay omecay otay ethay aidway ofway eirthay ountrycay. esttay: estquay
|
---|
In Section
Seekers of Perl Wisdom