split /\.*/ is wrong. (So is split /.*/ which is probably what you intended.) You don't have a list of items seperated by 0 more or more periods. You want split //.

split /\.*/ results in you only checking the first character of every line and the ones after periods, and it results in you doing ord('') (which returns zero) when the line starts with a period.

There are other issues, though.

• You chomp $line, but you split $_. Why do you have $line at all?
• You really should use use strict; and use warnings;. As it is, you'll find some variables you forgot to scope using my.
• while (@character){my $character = shift @character;
  can be written as
  for my $character (@character)
• @character is singular even though it holds many characters.
• There's no reason to use BEGIN where you did.
• The -s is check is redundant with open.
• warn and exit 255 can be replaced with die unless you specifically want code 255.
• It helps to include the reason ($!) the open failed.
• Your complex if can be collapsed.

use strict;
use warnings;

@ARGV == 1
  or die("Usage: $0 FILE\n");

my $in = shift;
open(INFILE, '<', $in)
   or die("Can't open $in for reading: $!\n");

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

It's usually better to use <> instead of opening the file yourself. This allows input to be read from STDIN if no filename is provided.

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 l
+ine $.\n");
    }
  }
}
[download]

Furthermore, you could use a regexp instead of splitting.

use strict;
use warnings;

while (<>) {
  chomp;
  while (/[^\x09\x20-\x7E]/g) {
    print("Input contains illegal character \(ord:\ ", "$ord\) on line
+ $.\n");
  }
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.