($result = $htmlline)  =~ s/<tag marker>(.+?)</td>/$1/;
$result =~ s/<br(?:\s\/)?>/\n/g;

##</code><code>##

( $result = $htmlline ) =~ s/{<tag marker>(.+?)</td>}{join("\n", split(/<br(?:\s/?)?>/, $1))}eg;