in reply to Counting positive numbers
Perl 6 solution, with latest Rakudo (ie built today):
# 12345678901234567890123456 perl6 -e 'get;say [+]lines.grep: *>0'
26 character if you don't count the quotes.
Perl 6 - links to (nearly) everything that is Perl 6.
In Section
Seekers of Perl Wisdom