>perl -wMstrict -le
"my @Array = ('A', undef, 'B', '0', 'C', 0);
 print join ' ', map {qq(\"$_\")} grep {defined and length} @Array;
"
"A" "B" "0" "C" "0"