s/(\w+)/$w{$1}++;$t++;$1;/eg while (<>);