Можно так...

Sumo 18.05.2006 16:26 / 18.05.2006 16:51

      $wmain[преобразование]
   $wsend[ообраз]
   
   main: $wmain<br />
   send: $wsend<br />
   
   $res(1)
   $temp[^wsend.match[(.)][gi]{
     ^if(^wmain.pos[$match.1] >= 0){$wmain[^wmain.match[$match.1][i]{}]}{$res(0)}
   }]

   оставшиеся буквы: $wmain<br />
   подходит: ^if($res){да}{нет}

Сравните производительность - нам расскажите.

---