My first PerlMonks node provided a solution to a problem very like this one. If you twiddle the values in the quantifier and remove the /g switch then you have the solution you are probably looking for.

See perlretut, perlre and perlreref for more regular expression goodness.