perl -e '$_ = "x" x 10_000_000; $_ .= "y"; sleep 1 while /y/;'