grep !/^_/, symbols('CODE'); # non-"privates"
grep !/[^A-Z0-9_]/, symbols('CODE'); # "constants"

##</code><code>##

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$