#!perl -p
s/(?<=w)|(?=w)/u/g