fixed to use Perl API is_ascii_string