if ($line =~ m/([\0-\x8\xb-\x1f\x7e-\xff])/) {
  print "$line contains illegal character (ord: ", ord($1), ")\n";
}

##</code><code>##

  @character=split /\.*/;
  while (@character){

##</code><code>##

  @character=split //; # split $_ into single characters
  while (@character){