Re: A challenging problem in perl regular expression

[Albannach]

in reply to A challenging problem in perl regular expression

How about:

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

which gives:

JAZZxxJAZZJAZZxxJAZJAZZxxJAZZ
JAZZaaJAZZJAZZaaaaaJAZZaaJAZZ