Versuch mal /\Q$suchstring\E/ als regulären Ausdruck.
Aber ich hab mir das jetzt nicht alles angesehen, weil es irgendwie verwirrend ist.

Hast du eventuell eine Menge einfach weggelassen, in deinem post?

MfG\n\n

<!--EDIT|PerlProfi|1175694005-->