$instream =~ s/<FONT(.+?)COLOR\s?=\s?('|")?(\#......)\2(.+?)SIZE\s?=\s?('|")?(\d+)\5(.+?)FACE\s?=\s?('|")?(.+?)\8[^>]*>\s*/genStyleCSF($3,$6,$9)/ieg;