Как я могу запустить регулярное выражение, которое проверяет текст на наличие символов в определенном алфавите или скрипте?

Я хотел бы создать регулярное выражение на Perl, которое будет проверять строка для символов в конкретном скрипте. Это будет примерно так:

$text =~ .*P{'Chinese'}.*

Есть ли простой способ сделать это, для английского это довольно просто, просто протестировав [a-zA-Z], но для такого скрипта, как китайский, или одного из японских скриптов, я не могу придумать какой-либо способ сделать это, за исключением явного написания каждого символа, что привело бы к очень уродливому коду. Идеи? Я не могу быть первым / единственным человеком, который хотел это сделать.