Select Code to Download

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

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