Regexp::Assembleを使用した正規表現について

Question

下記のプログラムにおいて、例えば coconut と入力しても、マッチしません。
なぜマッチしないのでしょうか。

#!/usr/bin/perl
use strict;
use warnings;
use 5.016;
use utf8;
use Regexp::Assemble;

my $ra = Regexp::Assemble->new;
open my $file_handle, '<', 'test.txt';
while(<$file_handle>) {
	chomp;
	$ra->add($_);
}
say $ra->re;

while(<STDIN>) {
	chomp;
	say "row: $., text: $&" if /$ra->re/;
}

test.txtの中は、以下の通りです。
cocoa?n[ue]t
Mary[-\s]+Anne?
(The\s+)?(Skipper|Professor)

環境
Linux

Answer 1

    say "row: $., text: $&" if /$ra->re/;

/.../演算子について、Perlのドキュメントに次のような説明があります。

m/PATTERN/msixpodualgc
/PATTERN/msixpodualgc
(中略)
PATTERN には、変数が含まれていてもよく、パターンが評価されるごとに、 (デリミタがシングルクォートでない限り)変数は展開され (パターンが再コンパイルされ) ます。(後略)

つまり、/$ra->re/の中の$raはなにかの文字列に「展開」されますが、->reは変数の一部ではないので展開されません。そのため、「$ra->reというメソッド呼び出しが返す正規表現にマッチさせる」という意図の通りには動作しません。

Comments

[JADEN]

回答ありがとうございます。
解決することができました。
長時間悩んでいましたので、非常に助かりました。