Utter nonsense. This is not the question of a seeker of Perl wisdom. It seems, in fact, to be seeking a means of avoiding acquiring Perl wisdom.
You have identified that you wish to do a substitution. You seem to be aware of regular expressions. So read the documentation, perlretut for example, and take a stab at it. The worst that can happen if you try is you make a mistake, and with a little effort, you'll learn from the mistake. The best that can happen if you don't try is you'll learn nothing and remain dependent on others to solve your problem for you.