in reply to wrap contents of an array in single quotes separated by comma

This is almost a oneliner task, and note that mine is not an elegant solution
win>perl -lne "push @arr, $_; END{print join ',', map{'\''.$_.'\''  } 
+@arr  }" trash.txt

#untested, only different quotation.
linux>perl -lne 'push @arr, $_; END{print join ",", map{"'".$_."'"  } 
+@arr  }' trash.txt

[download]

HtH
L*
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

In Section Seekers of Perl Wisdom