print "funny"
  if ($c =~ /[\x00-\x1f\x7f-\xff]/s);