if($tcp_pkt_data =~ m/Inhalt\seinss/g)
        {
         # alles gut, paket ins netz
        }
       elsif($tcp_pkt_data =~ m/binärer\sinhalt/g)
         {
         # grosses problem, da es hier jetzt ätzend wird
         }