Although ikegami has provided a much shorter and better solution, I would like to come back to your very complicated syntax and suggest some possible improvements to the rest of your code. Using chomp, you could do this:

$ perl -e '@words = ("one\n","two\n","three\n","four\n","five\n","six\
+n",); chomp @words; print join";", @words;'
one;two;three;four;five;six
[download]

Although I would not really recommend this, you could also use split if you really wanted to:

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

Or perhaps a regex:

$ perl -e '@words = ("one\n","two\n","three\n","four\n","five\n","six\
+n",); @words = map {s/\n//; $_} @words; print join";", @words;'
one;two;three;four;five;six
[download]

Or split again, but without a map this time:

$ 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
[download]

Or, if you don't want to use the join function:

$ 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
[download]

Well, I could probably offer at least a dozen other solutions mixing the various ideas above or introducing new ones, but I hope you get the idea of how to do the things in a much more concise way than what you had.