Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

DJ Purrperl

by DJ Purrperl (Novice)
on Aug 11, 2007 at 05:18 UTC ( #631927=user: print w/replies, xml ) Need Help??

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