while ($string=~m{(W)}g){