Select Code to Download

my $string = '+book +dog +cat';

"+book", "+dog", "+cat"

my $string = '+book +dog +cat';
my @raw_params = split /\s+/, $string;
my @quoted_params = map { qq{"$_"} } @raw_params;
my $quoted_params_string = join ", ", @quoted_params;
print $quoted_params_string;