$_ = <<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";
[download]

isthay isway ethay imetay orfay allway oodgay emay onay
omecay otay ethay aidway ofway eirthay ountrycay.
esttay: estquay
[download]