use strict;
use warnings;

while (<>) {
  chomp;
  for my $char (split //) {
    my $ord = ord($char);
    if (  $ord < 9
       || ($ord > 10 && $old < 32)
       || $ord > 126
    ) {
      print("$Input contains illegal character \(ord:\ ", "$ord\) on line $.\n");
    }
  }
}