use strict;
use warnings;
use diagnostics;
my $instream= 'empty';

$instream =~ s/
		 <FONT
		(.+?) 
		COLOR\s?=\s?
		('|")?
			(\#......)
			\2 
			(.+?)
			SIZE
		\s?=\s?
		('|")?

################	(\d++)\5   #d+ not d++
			(.+?)
			FACE
		\s?=\s?
		('|")?
			(.+?)
		\8
		[^>]*>
		\s*
		/genStyleCSF($3,$6,$9) 
	/iegx;