my $antwort = "";
my $zeichen = "";
my $count=0;
while ($count<10000) {
  $count=$count+1;
  $zeichen=$rs485_port->read(1);
  $antwort=$antwort.$zeichen;
  if ($zeichen eq ";") {
    print "$antwort\n";
    my $antwort = "";
    my $zeichen = "";
  } 
}