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

perl -0777 -MWeb::Query=wq -lne'
    my $w = wq $_; my $sep = ", ";
    $w->filter("p.ul1")->each(sub {
        my (undef, $e) = @_;
        $e->html(join $sep, map {
            qq($_)
        } split $sep, $e->text);
    });
    print $w->as_html;
'