chomp and print join ',', grep $_, (map length, split /[a,]/), "\n" while ; __END__ a bug trapped inside a paper lantern, arid aflutter, ablaze