while () { s/\b module \s+ OLD \b/module NEW/xms; print $_; }