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