$n = 10_000_000;
print ": ";  <>;                                       # 2MB
$f = 1;
for (0..$n-1) { if ($f) { $f = 0; print ": "; <>; } }  # 2MB