Use loop to replace word and run multiple lines

Question

I have the word "JAN" in many lines. Here is an example:

OccRateJAN_Yuki<-YukiJANoccupied/31

I want to use loop so that each time "J