#!perl -l
use strict;
use warnings;
use utf8;
sub check {
$_[0] !~ /\A[\P{Cc}\r\n]{1,2048}\z/;
}
print 0+check("妥当な 文字列");
print 0+check("妥当な 文字列"); # fullwidth space
print 0+check("妥当な\t文字列");
print 0+check("妥当な 文字列\n");
print 0+check("\x{00}\x{01}\x{02}\x{03}");