my $str = "";
$str .= "\nbegfoo bar ( xyz ) ;\nendfoo\nqux 123 ;"
    while 100E+06 > length $str;