if ( $date =~ /[\x{0080}-\x{FFFF}]/ ) {return 1;}