tina@lux:~> perl
my $x = "'1','2','3'";
print "$x\n";
CTRL-D
'1','2','3'