#!/usr/bin/perl
use strict;
use HTML::TokeParser::Simple;

my $in = q|
<br><b>Medische reden WAO-uitkering, in percentages</b>
<br><pre>
Turken Marokkanen Nederlanders
<br>Klachten aan het bewegingsapparaat 36 35 36
<br>Psychische klachten 23 26 27
<br>Overig 41 39 37
<br></pre>
|;

my $p = HTML::TokeParser::Simple->new(\$in);

my $pre = 0;

while (my $token = $p->get_token) {
$pre++ if $token->is_start_tag('pre');
$pre-- if $token->is_end_tag('pre');
next if $pre and $token->is_tag('br');
print $token->as_is;
}

<br><b>Medische reden WAO-uitkering, in percentages</b>
<br><b>Medische reden WAO-uitkering, in percentages</b>
<br><pre> Turken Marokkanen Nederlanders
Turken Marokkanen Nederlanders
Klachten aan het bewegingsapparaat 36 35 36
Psychische klachten 23 26 27
Overig 41 39 37
</pre>