Re: RegExps failing on (some) 5.8.8

I've encountered the same problem and blogged about it. It's a bug in old Perl versions, but read the blog post, I've found a workaround. Flavio's comment points to the corresponding bug report.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Comment on Re: RegExps failing on (some) 5.8.8 Download Code

Replies are listed 'Best First'.
Re^2: RegExps failing on (some) 5.8.8 by tlhackque (Beadle) on Oct 09, 2016 at 09:33 UTC
Thank you very much for the pointer. Indeed that's the bug that I encountered. I installed a 5.8.8 distribution with perlbrew and can now reproduce the issue, which system Perl could not. Apparently my distribution patched this bug. Is there a reason that your blog doesn't recommend Flavio's solution of using cloistered modifiers? It seems cleaner and more complete that what your detective work uncovered.	[reply]
Re^3: RegExps failing on (some) 5.8.8 by choroba (Cardinal) on Oct 09, 2016 at 22:20 UTC
> Is there a reason that your blog doesn't recommend Flavio's solution Well, I wrote the blog post on the 16th of March, the March round of the challenge ended on the last of March, and Flavio replied on the last of May. His reply is there, readable for anybody, but I was too lazy to update the blog post or submit a new pull request. ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l]