Fehler korrigiert / Hinweise mit Kommentar # Jörg:

Bitte in Zeile 145 bis 151 die Verwendung von d und c prüfen. Bisher erst einmal auskommentiert

# Jörg: Was ist d und c, wo kommen die her?  
#  if ( $a[2] == d && $a[3] == c)
#  {
#    $deviceCode = $a[2].$a[3];
#  } else {
#    $deviceCode = $a[0].$a[1].$a[2].$a[3];
#  }