$str =~ /\A(.{0,383}[\x00-\xbf]|)/s or die;