s%((?:\\w)+)%'\w{'. length($1)/2 .'}'%eg;
...