$data =~ s<(?:{{.*?}}|[^\n])*\K\n>{<br>\n}gs;
print $data;