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