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

##</code><code>##

Backslash found where operator expected at line 257, near ")\"
        (Missing operator before \?)
Backslash found where operator expected at line 258, near ")\"
  (Might be a runaway multi-line ** string starting on line 257)
        (Missing operator before \?)
syntax error at line 257, near ")\"