http://www.perlmonks.org?node_id=11107439


in reply to print source golf

print do{@ARGV=$0;*/;<>};        # wtf

[download]
*/ is the glob for the family of variables named /, short for *main::/.

Perl core uses $/. Regexp::Grammars uses %/.

In Section Seekers of Perl Wisdom