Select Code to Download

s/\b((qu|[bcdfghjklmnpqrstvwxyz]+)?([a-z]+))/$2?$3.$2."ay":$1."way"/eg
+;

#!/usr/bin/perl -w

...
                                            # put it at end of word an
+d add "ay"
                                            # otherwise, just add "way
+"
print $test;