#!/usr/bin/perl -w
# char_range.pl - Don Yang (uguu.org)
#
# 07/11/07

use strict;

while(my $line = <>)
{
   foreach (unpack 'C*', $line)
   {
      if( $_ != 10 && ($_ < 32 || $_ >=127) )
      {
         print "Found out of range character at line $.\n";
      }
   }
}