...
open(LOG,">>${LOGDIR}/${LOGFILE}") ||die "Logfile kann nicht geöffnet werden\n";

select(LOG), $| = 1;
open(DEV, "<$PORT") || die "Kann den Port $PORT: $_ nicht öffnen";

while($_ = <DEV>){
        # Aufspliten der Nachricht für die Verarbeitung
        ($start, $ric, $date, $time, $message, $end) = split(/::/, $_);

print $message;

}
undef $ob;