http://qs321.pair.com?node_id=1212352

Perl Developer Survey is back. Last year, it had 849 participants. How many will respond this year? Open until the 7th of May.

($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,