Select Code to Download

my @data = <FILE>;

...
}

print @data;

while( $line = <FILE> ) {
  last unless $line =~ /\S/;
}