|
|
|
| Don't ask to ask, just ask | |
| PerlMonks |
DJ Purrperlby DJ Purrperl (Novice) |
| on Aug 11, 2007 at 05:18 UTC ( #631927=user: print w/ replies, xml ) | Need Help?? |
#!/usr/bin/perl
while ( chomp (<DATA>) ) {
print join ',', grep $_, map length, split /a,/;
print "\n";
}
__END__
a bug trapped inside
a paper lantern, arid
aflutter, ablaze
|
|