in reply to How can I reduce this with a REGEX?

still working on it- found a mistake.. this seems to work:

while ( /(\d\d).*(-\1)/ ) {
s/(\d\d)((-\d\d)*?)(-\1)/$1$2/g;
}

but I still arent in love with having to use the while ()
  • Comment on Re: How can I reduce this with a REGEX?

In Section Seekers of Perl Wisdom