print join ' ', map {qq("$_")} grep{$_} ('a', 'b', '', 'd', '', 'f');