in reply to Re^3: Variable will not stay shared in subroutine
in thread Variable will not stay shared in subroutine

You've just treated the symptoms, not the cause. In Perl, it makes no sense to define a named subroutine inside a named subroutine, as the nested subroutine is still globally visible.

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

In Section Seekers of Perl Wisdom