Select Code to Download

use warnings;
use strict;
...
my @lines = split $/, $file;

print "$_\n" for @lines;

foo
bar
qux
foo foo foo