$ perl -e'local $\ = $/; print for qw/foo bar baz/'
foo
bar
baz
$