my $st = index($string, '<tag>');
my $en = rindex($string, '</tag>') - $st;

substr($string, $st, $en) =~ s/\n/<br>/g;