http://www.perlmonks.org?node_id=133558


in reply to TMTOWTDI Puzzle: Generating a range of numbers

or 
do {
        $Foo .= "x";
        print length($Foo),"\n";
} until (length($Foo) eq length('timtowtdi!'));

[download]

In Section Meditations