my @words = <>;
chomp(@words);
print(join(';', @words), "\n");

##</code><code>##

perl -nle'push @w, $_; END { print join ";", @w }'