from： http://stackoverflow.com/questions/739214/how-do-i-output-each-perl-array-element-surrounded-in-quotes

例如：

/home/a/j/nomad2:cat 1
#!/usr/bin/perl

my @strArray = ("abc","bcd");
my $text = do { local {1}quot; = q<",">; qq<"@strArray"> };

print "$text\n";
/home/a/j/nomad2:./1
"abc","bcd"