$ perl -e '@words = ("one\n","two\n","three\n","four\n","five\n","six\n",); $_ = (split /\n/)[0] for @words; print join";", @words;'
one;two;three;four;five;six