my $debug = $ENV{DEBUG};
+$| = 1;
+
warn "## protocol = ",dump( $protocol ) if $debug;
my $pkg_nr = 0;
( $timestamp, $sensor, $imei, $up_down ) = ( $1, $2, $3, $4 );
$stat->{$sensor}->{$imei}->{$up_down}++;
} elsif ( m{^\s+} ) {
- s/\s\s\S\S\S+//g; # remove ascii
s/^\s+/ /;
+ s/\s\s.+$//g; # remove ascii
$raw .= $_;
warn "++ $_\n";
} else {