Select Code to Download

my $obsession = 'Perlmonks!';
my @day;
while ($obsession) {
...
    chop $obsession;
}
print length $_, "\n" for reverse @day;

my $obsession = 'Perlmonks!';
my @day;
while ($obsession) {
...
    chop $obsession;
    print scalar @day, "\n";
}