substr($tabelle, length($tabelle) - 10) =~ s/</tr>/</tr><tr><td>blabla</td></tr>/;