while(<F>) {
/^#/ && next;
if (/^\s*font[0-9]+x[0-9]+\s*=\s*(\S+)/) {
$font_current = $1 if $1 ne "NO";
($font_current = $1) =~ s/"//g if $1 ne "NO";
}
close F;