Select Code to Download

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

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