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