>perl -wMstrict -le
"my @Array = ('A', 'B', 'C');
 my $text = '\"' . join('\" \"', @Array) . '\"';
 if ($text eq '\"\"') {
   $text = '';
   }
 print $text;
"
"A" "B" "C"