perl -nle'push @w, $_; END { print join ";", @w }'