#!perl -l
use strict;
use warnings;
use utf8;
sub check {
    $_[0] !~ /\p{C}/;
}
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}");
