print "funny"
  if ($c =~ /[[:^ascii:][:cntrl:]]/);