removefillerchar

#!/usr/bin/perl
use strict;

my $inchar = 0;
my $char = "";
my $chars = 0;
my $output = "";

while (<>) {
    if (/^STARTCHAR/) {
        $inchar = 1;
        $char = $_;
    }
    elsif (/^ENDCHAR/) {
        $char .= $_;
        $inchar = 0;
        if (!($char =~ /BITMAP\s+00\s+54\s+2A\s+54\s+2A\s+54\s+2A\s+54\s+2A\s+54\s+2A\s+54\s+2A\s+54\s+2A\s+00/im)
            &&
            !($char =~ /BITMAP\s+FF\s+B9\s+C5\s+ED\s+D5\s+D5\s+D5\s+D5\s+D5\s+D5\s+D5\s+D5\s+ED\s+B9\s+91\s+FF/im)
           ) {
            $output .= $char;
            $chars++;
        }
    }
    elsif ($inchar == 1) {
        $char .= $_;
    }
    elsif ($inchar == 0) {
        $output .= $_;
    }
}
$output =~ s/^CHARS .*$/CHARS $chars/m;
print $output;