$Data = <DATA>;
$Data =~ s/(\[NEW\].+?)\<?(\n\[)/$1<p>$2/sg;