my $s;
    for [\~] 1..* {
        last if .chars >= 1_000_000;
        $s := $_;
    }

##</code><code>##

    my $s = first gather for [\~] 1..* -> $x, $y? {
        take $x if $y.chars >= 1_000_000;
    }