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