( $result = $htmlline ) =~ s/<tag marker>(.+?)</td>/$1/;

##</code><code>##

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