$regdata =~ s/\Q$regpart[0]\E/$regpart[1]/eg ;