http://www.perlmonks.org?node_id=631927
User since: Aug 11, 2007 at 05:18 UTC (17 years ago)
Last here: Feb 28, 2008 at 05:04 UTC (16 years ago)
Experience: 38
Level:Novice (2)
Writeups: 5
Location:bitverse
User's localtime: Apr 18, 2024 at 13:47 UTC
Scratchpad: None.
For this user:Search nodes
 

#!/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