^.?$|^(..+?)\1+$
<answer>
Matches strings of any character repeated a non-prime number of times
Let’s put it this way: You can produce unreadable code in basically any language. With Perl, it is just a bit easier.
And of course if you have the discipline of a good programmer, even your casual Perl programs should be readable. That’s what differenciates a good programmer from a hacker.
Yeah, I was younger then, perhaps less disciplined, and as always, given enough work you can decompile or regenerate anything. Still, I contend, the nature of Perl, powerful as it was, lent itself to unmaintainable messes, and I’m not talking regex’s, which is why it has faded, no amount of get gud withstanding.