perl -wle '$n=32766; $_="a" x $n; /(ab*){$n}/'