#!/usr/bin/perl
open IN, "list.orig";
open OUT, ">list.new";
while(<IN>)
{s/<font[^>]*>//g;
s/<\/font>//g;
print OUT;}