if($line =~ /[^[:ascii:]]/){
  $line =~ s/([^[:ascii:]])/ ... lotsa subexpressions ... /ge;
  print "Unhandled sequence: $line\n";
  }