or download this
open(0,$0);$/=$;;<0>=~m{(ET / /).*(C[^\*]+)}s;$b=$1;($G=$g=$2)
=~s/.*(en).*/s$1d(t,/s;$_=join');',S($g),S($g),"$G\"G$b\n\n\",
...
$_[0]='s'}$#_=8;lc join('',@_);}$_=eval;s/.*\r\n//s;
s#(<[^>]+>)*(\w{0,2})#"$1<FONT COLOR=".(int rand 999999).">
$2</FONT>"#eg;print;#Content-type