Help for this page

Select Code to Download

Select or download this

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

Select or download this

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