s[\b($word)\b][$1]g;