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