in reply to Extract individual lines and block of text from large files
Crossposted to StackOverflow. It's considered polite to inform about crossposting so that people not attending both sites don't waste their time hacking a solution for a problem already solved at the other end of the internet.
($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,
In Section
Seekers of Perl Wisdom