Select Code to Download

#!/usr/bin/perl -w

...
close *ARGV;

print join("\n", @sections);

FOObarFOObarFOObarFOObarFOObar
FOObarFOObarFOObarFOObarFOObar
FOObarFOObarFOObarFOObarFOObar

cat test.txt | ./test.pl