sub echte_laenge ($) {
    my @t    = split //, shift;
    my $cnt  = 0;
    for my $i (0..$#t-1) {
        ++$cnt if ord $t[$i] == 0x10 and ord $t[$i+1] == 0x15;
    }
    return scalar(@t) - $cnt;
}