Select Code to Download

 while (my $line = <$original_fh>) {
...
          chomp($nr);
    $line =~ s/((\w\w\t){$nr})/$1\n/g;
  }