#!/usr/local/bin/perl -n
s/\s+$//;
0 while s!</?font[^>]*>(.?.?)!$1 eq ' |' ? '|' : $1!gie;
print "$_\n";