Select Code to Download

$_ = '"Jones, James", "Smith, Susan", Spot';
use Text::ParseWords;
@names = quotewords(",", 0, $_);
print join(" &", @names);