can anyone write a perl program for the following Riata algorithm for fast pattern matching of strings.am stuck with it here n there coz i dont know C.

http://www-igm.univ-mlv.fr/~lecroq/string/node22.html
http://www-igm.univ-mlv.fr/~lecroq/string/examples/exp22.html


please......