$ perl -e '$x="x" x 2**31'
panic: string extend at -e line 1.
$  perl -e '$x="x" x 2**30'
panic: string extend at -e line 1.
$  perl -e '$x="x" x **29'
$