my @lines=map {chomp; "'$_'"} <>;
$"=",\n";
print "(@lines)\n";

##</code><code>##

$"=",\n";
print "(@{[map {chomp; qq|'$_'|} <>]})\n";