C:>perl -MText::ParseWords -le "print for quotewords ',', 0, qq(First,Second,Third) "
First
Second
Third

C:>perl -MText::ParseWords -le "print for quotewords ',', 0, qq(First,Second 'Line',Third) "
First
Second Line
Third

C:>perl -MText::ParseWords -le "print for quotewords ',', 0, qq(First,Second 'Line',it's not a bug) "

C:\usr\local\share>perl -MText::ParseWords -le "print for quotewords ',', 0, qq(First,Second 'Line',it's not a bug,it's a feature) "
First
Second Line
its not a bug,its a feature

C:>