Select Code to Download

use strict;

...
  $lines[$i] =~ s/\n//;
  print "Line $i:  $lines[$i]\n";
}

Line 0:
Line 1:  blah
...
Line 5:
Line 6:  asfsdf
Line 7:  afsafdf