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