Re: TMTOWTDI Puzzle: Generating a range of numbers

[premchai21]

my $foo = 'HelloWorld!';
my @bar;
do { chop $foo; push @bar, length $foo } while ($foo);
pop @bar; @bar = reverse @bar;
@bar;

Not the most original, probably, but it works.