Perlで変数がどのように見つかったのかを確認する

Question

単語を検索する文字列があります。

変数を見つけた単語に設定する必要があります。

私のテキストは、私の検索ワードが、私は変数にマッチした部分文字列を配置する必要がありNY

あるCat dog Jim NY You

です。

#!/usr/bin/perl 

$x = "Cat dog Jim NY You"; 

if ($x=~/NY/) { 
    print "???\n"; 
} 

Answer 1

キャプチャ（(...)）を使用してください。ところで

if (my ($capture) = $x =~ /(NY)/) { 
    say $capture; 
} 

---

、常に使用use strict; use warnings qw(all);。

上記プログラムにはuse feature qw(say);が必要です。