$ perl -Mstrict -Mwarnings -E '
my @words = split m{(?<=\n)}, <<EOL;
one
two
three
EOL

say qq{$_-----} for @words;'
one
-----
two
-----
three
-----
$

##</code><code>##

$ perl -Mstrict -Mwarnings -E '
say join q{;}, map { chomp; $_ } split m{(?<=\n)}, <<EOL;
one
two
three
EOL'
one;two;three
$