perl - ファイル内の特定の文字列のすべてのインスタンスに続く次の 7 文字を取得します

Question

ファイル内の単語のすべてのインスタンスに続く 7 文字を取得する方法を探してい"ISBN="ます。ファイルには 1 行に 1 つずつありISBN=ます。

だから何か...

my @data = ();
my $word = "ISBN=";

foreach my $line (@file) {
    if (index($line, $word) ge 0) {
        my $d = next seven characters;
        push (@data, $d);
    }
}

私は見当もつかない...

Answer 1

正規表現のように聞こえ、キャプチャはより簡単になります：

if ($line =~ /ISBN=(.{7})/) {
    push @data, $1;
}

Answer 2

if ($line =~ /\Q$word\E(.{7})/) {
  push(@data, $1);
}