in reply to wanting to make a file of strings usable by SQL

print '(';

while( <> ) {
    chomp;
    print ",\n" unless $. == 1;
    print "'$_'";
}

print ")\n";

[download]

Update: $. == 1 of course, not $. == 0

Makeshifts last the longest.

In Section Seekers of Perl Wisdom