Perhaps the biggest and most generally used tool in the Perl toolbox is the regex (see also perlretut). I strongly recommend that you take a look at the regular expression documentation then if you are still asking this question come back with the regex substitution you are having trouble with.