my $seite = "<table><tr><td>Sp. </td><td> </td><td> s </td><td> u </td><td> n </td><td> Tore </td><td> Diff. </td><td> Pkt.</td></tr> <tr><td colspan=7> Daten </td></tr></table>";

my $tabellen = HTML::TableExtract->new(headers => [qw(Sp. s u n Tore Diff. Pkt.)]);
my $tabellen->parse($seite);