perl -e '$foo = "x" x 6000000; $foo =~ /(x*)/; print length($1), "\n"'