my $string = (+book +dog +cat);
print join(',', $string), "\n";

##</code><code>##

$string = $q->param("us1"); # this is what entered +book +dog +cat
print join(',', $string), "\n";