$_='JAZZxxJAZZJAZZxxJAZJAZZxxJAZZ'; print $_,$/; s/(.*?)(JAZZ)/('a'x length $1) . $2/ge; print