split(/\n/,   "hello\nworld")  ->  ("hello", "world")
split(/(\n)/, "hello\nworld")  ->  ("hello", "\n", "world")

##</code><code>##

$text = join '',
        grep $_ ne "$word\n",
        split /(?<=\n)/,
        $text;