http://www.perlmonks.org?node_id=1192502 

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

[download]

Back to Perl Poetry