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


in reply to I heart Perl

I like this. Shame there is no +++ vote.

Whenever I see "simple" patterns like the capitalisation used here and a pack with a B closeby I think that there is some binary coding at work. The shape then becomes a distraction, poetry but irrelevant to the code.

I changed the eighth character from S to s and the initial J becomes K. Hence capital = 0, lower = 1.

That said I would have no real idea on the regex itself.