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