Select Code to Download

copy con new.txt
this is line 1
this is line 2
this is line 3
^Z

open(NEW,"<","new.txt");
while ( my $line = <NEW> ) {
    chomp $line;
...
  print ord($chars[0]),$/; # print the character number of the first c
+haracter of $line
  print $line,$/;
}