$ perl -e 'print "$_\n" for split "", "foo"'
f
o
o