use strict;
use warnings;
use HTML::TableExtract;   #für die tabelle
use LWP::Simple ();      #um die html seite zu holen

my $URL = "http://www.example.com/foo/bar";

my $data = LWP::Simple::get($URL) or die "Side unable to get";


my $te = HTML::TableExtract->new( headers => [qw(Nummer Status-Nr. Datum Zeit Bemerkung Statustext Text2)] );
     $te->parse($data);

     foreach my $ts ($te->tables) {
       foreach my $row ($ts->rows) {
         foreach my $lvar (@$row) {
            $lvar =~ s/^\s*(.*?)\s*$/$1/; # strip whitespace and newlines
         }
          print join(',', @$row), "\n";
       }
     }