require 5.6;
use strict;
use warnings;
use utf8;

my $count;
while (<>) {
   while (/[^\x{1}-\x{7f}]/g)  {
      ++$count;
      print "Found on line $.: $_";
      }
   }
print "Total: $count offending chars found.\n";