perl:匹配多行文本

通常，Regex是針對單行文本的。由於Perl 可以處理任意長度的字串，因此，Perl 的模式可以輕易的對多行文本進行匹配，就像單行文本一樣。當然，運算式中應當包含多行文本。下面的字串中有4 行：
$_ =“I’am much better\nthan Barney is\nat bowling,\nWilma,\n”;
錨定^和$是指整個字串的開頭和結束，加強了理解，^和$指的是字串的首和尾，並不是針對單行的。但/m 這個Regex選項允許它們根據內部的分行符號進行匹配（/m表示多行）。這時錨定針對每一行，而非整個字串。因此，這個模式可以匹配上：
print “Found ‘wilma’at start of line\n”if /^wilma\b/im;
同樣的，在多行字串中，也可以分別針對單行進行替換。在下面的例子中，我們將整個檔案讀入一個變數之中，然後將檔案名稱字加在每一行的開頭處：
open FILE, $filename
or die “Can’t open ‘$filename’: $!”;
my $lines = join '', <FILE>;
$lines =~ s/^/$filename: /gm;