##
$ perl -e '@_ = qw{a bcd ef}; print "@_"'
a bcd ef
$ perl -e '@_ = qw{a bcd ef}; print qq{@_}'
a bcd ef
####
$ perl -e '@_ = qw{a bcd ef}; { local $" = " "; print "@_" }'
a bcd ef
$ perl -e '@_ = qw{a bcd ef}; { local $" = "__"; print "@_" }'
a__bcd__ef
$ perl -e '@_ = qw{a bcd ef}; { local $" = "\n"; print "@_" }'
a
bcd
ef