こんにちは。

日本語＋アルファベットのテキスト文章からアルファベットだけを削除するPerlCGIプログラムを作ってるのですが、
結果はどうしても文字化けしてしまいます。

テキスト文章 =~ s/[\w]//eg;

原因は文字コードにあるのだと思いますが、どうしたらよいでしょうか？
何か良い方法はないでしょうか？