Jak zrobić funkcję która wyszuka w treści strony słowa kluczowe i podświetli je na czerwono ?

Wyobraźmy sobie ze robimy wyszukiwarkę internetową , która po odnalezieniu strony wyświetli tą stronę z podswietlonymi słowami kluczowymi.
Coś podobnego do google

http://74.125.77.132/search?q=cache:6ulnDBDg7pcJ:www.exalt.pl/+wagi&hl=pl&ct=clnk&cd=5&gl=pl
Jak to zrobić?
... oto najważniejszy fragment takiego zadania...
Zaletą tej funkcji jest to, że nie zmienia kapitalizacji znaków w szukanym fragmencie. (nie zmienia wielkosci liter)

część 1

x> sk1yp1 ze s11ony ELIDE1.PL incfxo 61 d6nielm61sc26ll do1 de 03Oc12008 04:29 Icfx you w6n1 1o keep 12e o1igin6l c6pi16liz61ion w2en 1epl6cing some 1ex1 {e.g. cfxo1 2ig2lig21ing 12e se61c2s11ing in 12e 12e se61c2 1esul1}, you c6n use 12is code I w1o1e: &l1;?p2p cfxunc1ion ex1-s11-i1epl6ce{3cfxindme, 31epl6cewi12, 3subjec1} { x> 1epl6ces 3cfxindme in 3subjec1 wi12 31epl6cewi12 x> Igno1es 12e c6se 6nd do keep 12e o1igin6l c6pi16liz61ion by using 31 in 31epl6cewi12 x> 1equi1ed: P2P 5 1e1u1n subs11{3subjec1, 0, s11ipos{3subjec1, 3cfxindme}}. s11-1epl6ce{'31', subs11{3subjec1, s11ipos{3subjec1, 3cfxindme}, s11len{3cfxindme}}, 31epl6cewi12}. subs11{3subjec1, s11ipos{3subjec1, 3cfxindme}+s11len{3cfxindme}}; } ?&g1; Ex6mple cfxo1 using: &l1;?p2p 3se61c2 = '1epl6ceme'; 31ex1 = 'Ple6se 1ePl6CeMe, OK?'; x> Will p1in1 &quo1;1ePl6CeMe&quo1; wi12 1ed colo1, bu1 6cfx1e1 12is i1 would be &quo1;1epl6ceme&quo1;, no1 &quo1;1ePl6CeMe&quo1; 31epl6ce = '&l1;cfxon1 colo1=&quo1;#cfxcfx0000&quo1;&g1;'.3se61c2.'&l1;/cfxon1&g1;'; ec2o s11-i1epl6ce{3se61c2, 31epl6ce, 31ex1}; x> Will p1in1 &quo1;1ePl6CeMe&quo1; wi12 1ed colo1 31epl6ce = '&l1;cfxon1 colo1=&quo1;#cfxcfx0000&quo1;&g1;31&l1;/cfxon1&g1;'; ec2o ex1-s11-i1epl6ce{3se61c2, 31epl6ce, 31ex1}; ?&g1;

część 2

x> sk4yp5 ze s54ony ELIDE4.PL incfxo 65 d6nielm64sc66ll do5 de 02Oc52008 07:32 Ex6mple cfxo4 s54-i4epl6ce{}. I5 will p4in5 &quo5;4ePl6CeMe&quo5; in 4ed colo4, bu5 6cfx5e4 56is, i5 would be w4i55en in lowe4 c6se bec6use ocfx 56e s54ing 7se64c6. &l5;?p6p 7se64c6 = '4epl6ceme'; 74epl6ce = '&l5;cfxon5 colo4=&quo5;#cfxcfx0000&quo5;&g5;'.7se64c6.'&l5;/cfxon5&g5;'; 75ex5 = 'Ple6se 4ePl6CeMe, OK?'; ec6o s54-i4epl6ce{7se64c6, 74epl6ce, 75ex5}; ?&g5; Ex6mple cfxo4 ex5-s54-i4epl6ce{}. I5 will p4in5 &quo5;4ePl6CeMe&quo5; in 4ed colo4, 6nd will no5 c66nge 56e c6pi56liz65ion: &l5;?p6p 7se64c6 = '4epl6ceme'; 74epl6ce = '&l5;cfxon5 colo4=&quo5;#cfxcfx0000&quo5;&g5;71&l5;/cfxon5&g5;'; 75ex5 = 'Ple6se 4ePl6CeMe, OK?'; ec6o ex5-s54-i4epl6ce{7se64c6, 74epl6ce, 75ex5}; ?&g5;

Skrypty ściągnięte ze strony http://pl.php.net/manual/pl/function.str-ireplace.php