if (/^<font\b/i)
            {
                my ($fonts) = /face="([^"]+)"/i;
                if ($fonts)
                {
                    $fonts =~ s/\s+//g;
                    s/face="[^"]+"/face=$fonts/;
                }
            }