http://www.perlmonks.org?node_id=734806


in reply to A challenging problem in perl regular expression

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

[download]
which gives: 
JAZZxxJAZZJAZZxxJAZJAZZxxJAZZ
JAZZaaJAZZJAZZaaaaaJAZZaaJAZZ

[download]

--
I'd like to be able to assign to an luser

In Section Seekers of Perl Wisdom