$ perl -e 'print q{(}x20000' | perl -e 'my $x=<STDIN>; eval{q{bla} =~ /$x/}'
Segmentation fault