Select Code to Download

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

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