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