#! /usr/bin/perl

open (FSCALE, $ARGV[0]) || die "$ARGV[0]: $!\n";
while (<FSCALE>)
{ 
    if (/(.+\.pf[ab])\s+(.+)/)
    {
	$fonts{$2} = $1;
    }
}
close (FSCALE);

@keys = keys %fonts;
print $#keys + 1, "\n";
foreach $key (@keys)
{
    print $fonts{$key}, "\t", $key, "\n";
}