Perl 6 solution, with latest Rakudo (ie built today):

#         12345678901234567890123456
perl6 -e 'get;say [+]lines.grep: *>0'
[download]

26 character if you don't count the quotes.