Select Code to Download

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

JAZZxxJAZZJAZZxxJAZJAZZxxJAZZ
JAZZaaJAZZJAZZaaaaaJAZZaaJAZZ