Простой вариант...

Sumo 17.08.2009 20:27

  $str1[Хороший у вас пример.]
  $str2[Хороший у нас пример...]
  
  $i(0)
  ^str2.match[(.)][g]{^if($match.1 ne ^str1.mid($i;1)){<span style="color: red^;">$match.1</span>}{$match.1}^i.inc[]}