http://www.perlmonks.org?node_id=24022


in reply to Pig Latin

s/\b(qu|[^aeiou\s]*)(\w+)/$1?$2.$1.ay:$2.way/eg;
Score: 48
$_ = <<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";
Results:
isthay isway ethay imetay orfay allway oodgay emay onay omecay otay ethay aidway ofway eirthay ountrycay. esttay: estquay
This is sort of a combination between what chromatic and japhy had. It keeps punctuation and keeps the 'qu' case.