Select Code to Download

my ($s,$x)='';
$s .= ++$x while length($s) < 1_000_000;

my $s = [~] 1..185185;

my $s = [~] :while({.length<1_000_000}) 1..*;