$n = 'x' x 50 . "\n";
$p = "=foo $n";
$np = ($n x 50) . $p;
$_= $np x 100_000;

1 while m/\G ( = [a-zA-Z] .* ) \n/xgc;