perl - 如何匹配 "if ($variable[any_index] =~ m/' string'/) {print $variable[next_index];}”？

Question

请问，我怎样才能进行这样的匹配:

my @variable = split;
if ($variable[any_index] =~ m/'string'/) {print $variable[next_index];} 

是否有一种简单的方法来指定 $variable[any_index]？

是否可以在语句“print $variable[next_index]”中使用某种“向前看”？

提前致谢!

Answer 1

print $variable[$_] for grep { $variable[$_-1] =~ /'string'/ } 1..$#variable