in reply to Re^3: How can I reduce this with a REGEX?
in thread How can I reduce this with a REGEX?

$ perl -pe '1 while s/(\d\d)(.*?)(?:-\1)/$1$2/g' 1078350.in thanks I like this construct, never saw it before.. You got my ++ vote...
  • Comment on Re^4: How can I reduce this with a REGEX?

In Section Seekers of Perl Wisdom