<perl>
$var=qq(<span style="color:red">Eine 1.Tabelle - soll NICHT erscheinen !!</span>
<table bgcolor="#c0c0c0" border="1">
<tr>
<td><span style="color:#ffffff">Zelle1</span></td>
<td>Zelle2</td>
</tr>
</table>

<span style="color:red">und hier folget eine 2. Tabelle - soll NICHT erscheinen !!</span>

<tr>
<td bgcolor="#c0d0e0">Zelle11</td>
<td>Zelle21</td>
</tr></table>
<span style="color:red">Unbd weiter mit TEXT,der auch raus soll !!</span>

$var=~/(<table.+<\/table>)/is;
$var=$1;
#########
out $1;
</perl>