>>200
正規表現を変えた方が良いかも。
if ($comment =~ /[^ -~]/) { # 英語以外の文字がある
　$textchk = 0;
} else {
　$textchk = 1;
}

↑これだと文字コード依存無いし、元のより速いはず。