<>=~s#(.*?)((w)+)#$y|=$2,$$2.=$1.$/if~$1#ger;print$$y