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