\Q ist dazu da, alles, was danach kommt, zu escapen. wenn das bei dir nicht funktioniert, hat perl einen bug oder du machst irgendwo einen anderen fehler. wenn du dabei hilfe willst, dann wären beispieldaten *ungemein* hilfreich.

warum probierst du eigentlich nicht selbst aus, was \Q tut? es ist ja keine blackbox. gib einfach "\Q$regpart[0]" mit einem print-statement aus und sieh, ob es tut, was du erwartest.