| User since: |
Aug 11, 2007 at 05:18 UTC
(18 years ago) |
| Last here: |
Feb 28, 2008 at 05:04 UTC
(18 years ago) |
| Experience: |
38
|
| Level: | Novice (2) |
| Writeups: |
5
|
| Location: | bitverse |
| User's localtime: |
Oct 05, 2025 at 12:59 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