my $file = "site1.txt";
my $url = 'http://user:pwd@my-home-page.de';
my $content = getstore($url,$file);

my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,attr,self");
$p->parse_file($file);

open(HTML_S2,"<site1.txt") or die $!;

while(my $line = <HTML_S2>){
  if($line =~ s/.*?CLIENTS=(.+)/$1/gs){
  my $string = $1;
  my @string = split(/\&nbsp;\<\/td><\/tr>/,$string);
  print "@string";
  }
}
close HTML_S2;