Bug no Mathematica: expressão regular aplicada a uma string muito longa

No código a seguir, se a sequência s for anexada a algo como 10 ou 20 mil caracteres, o seg do kernel do Mathematica falha.

s = "This is the first line.
MAGIC_STRING
Everything after this line should get removed.
12345678901234567890123456789012345678901234567890123456789012345678901234567890
12345678901234567890123456789012345678901234567890123456789012345678901234567890
12345678901234567890123456789012345678901234567890123456789012345678901234567890
12345678901234567890123456789012345678901234567890123456789012345678901234567890
12345678901234567890123456789012345678901234567890123456789012345678901234567890
...";

s = StringReplace[s, RegularExpression@"(^|\\n)[^\\n]*MAGIC_STRING(.|\\n)*"->""]

Eu acho que isso é principalmente culpa do Mathematica e enviei um relatório de bug e o acompanharei aqui se eu receber uma resposta. Mas também estou me perguntando se estou fazendo isso de uma maneira estúpida / ineficiente. E mesmo se não, as idéias para solucionar o bug do Mathematica seriam apreciadas.

questionAnswers(3)

yourAnswerToTheQuestion