$input =~ s/(\.)(.)(\.)WI$/'_'.lc($2).'_w'/ge;