#!/usr/bin/perl

while (<>) {
  if (/^ENCODING\s+(\d+)/) { printf ("%04X:", $1); }
  elsif (/^BITMAP/) { $BITMAP=1; }
  elsif (/^ENDCHAR/) { $BITMAP=0; print "\n"; }
  elsif (/^FONTBOUNDINGBOX\s+(\d+)\s+(\d+)/) { print "$1 $2\n"; }
  elsif ($BITMAP) { y/a-f/A-F/; s/\n$//; print; }
}
