in reply to An observation on join
perl -e "print join(/ /,qw(a b c))" [download]
$_ = ' '; [download]