perl -E '$sum=0;for(1..1e6){$sum+=length($_);} say $sum;'