#!/bin/ksh
for file in `ls -1 *.html`
do
    newname=$(perl -e ' 
               undef $/;
               $text=<>;
               $text~="{([A-Za-z ]+)</font>$}";
               print "$1"; ' "$file" )
    mv "$file" "$newname"
done