Select Code to Download

chomp (my @data = <DATA>);
print "$_\n" for @data;
...
one
two
three

while (<DATA>){
    chomp;
...
one
two
three