cat test | perl -e 'while(<>) { s/&/\n/; print $_; }'