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

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