perl -e "print join(/ /,qw(a b c))"