in reply to How's your Perl?

9a: 
$ perl -e '$foo = \$^S; print eval(q[$$foo]) != eval(q[0+$$foo]) '
1

[download]
Search, Ask, Know

In Section Meditations