$word に 連続したシフトjisのひらがな・カタカナ・漢字が3文字入っているか
チェックするにはどうすればいいでしょうか？

3文字連続した日本語が入っていなければ、スパムとみなしたいのです。

if ( $word !~ [シフトjisのコード][シフトjisのコード][シフトjisのコード]) {
print "これはスパム";
}

みたいな感じでしょうか？