Perl add around words within an HTML/XML tag

Question

I have a file formatted like this one:

Eye color
Eye color, color
 
blue, cornflower blue, steely blue         


        

Answer 1

One-liner:

cat text | perl -pE 's{
\K.*?(?=<\/p>)}{ join ", ", map {qq|$_|} split /, */, $& }eg'