$packet = <Inhalt eines Paketes eben>
$packet= unpack('H32',$packet);
if ($packet =~ m/^.......(.)../) {
$interesantesBit=$1;
if ($interesantesbyte=="0") {print "nicht gesetzt"};
if ($interesantesbyte=="A") {print "Es ist mittelwert"};
if ($interesantesbyte=="F") {print "Es ist auf max"};
};