perl -e'$a="(.)"x15000;$_="a"x15000;/$a/;print "$15000\n";'

output:
a