$input =~ s/\.(.)\.WI$/_\L$1_w/;