Perlで日本語の文字列に含まれる日本語に正規表現でマッチさせたい

Question

###日本語にマッチさせたい
Perlで$strに含まれる$pをマッチさせたいです。
$strには、'メッセージ "通信エラー(クロス通信)" が表示されます。'、$pには通信エラー(クロス通信)が入っています。

実際のコードは以下です。

use strict;
use warnings;
use utf8;

use Encode qw/encode/;

my $str = 'メッセージ "通信エラー(クロス通信)" が表示されます。';
my $p = '通信エラー(クロス通信)';

$p = encode('utf8', $p);
$str = encode('utf8', $str);

if ($str =~ m/$p/) { # マッチをトライ
	print "Found it!!!";
}

use utf8しているのですが、マッチしません。
何がいけないのでしょうか。
ご教示いただけますと幸いです。

###環境
Perl v5.18.2
Windows 10

Answer 1

文字列のマッチは正規表現でなくindex関数を使います。

if (index($str, $p)>=0){
    print "Found it!!!";
}

もしくは、正規表現の特殊文字をエスケープしてから正規表現機能を使います。
今回は、( )が正規表現の特殊文字です。

my $qp = quotemeta $p;
if ($str =~ m/$qp/) {
    print "Found it!!!";
}

Comments

[masatoz]

otn様、できました！
とても助かりました。
ありがとうございました。