Select Code to Download

  @data = <RI>;
  chomp(@data);

  while ($line = <RI>) {
    chomp $line;
    ...
  }

for ( split /\n(?=\S)/, $line )

for my $line (@lines) {