regex - ファイルからの読み取り中のPerl複数行マッチング、行ごと

Question

次のようなファイルを開くとしましょう。

#!/usr/bin/perl

open FILE, "8882099";
while ($line = <FILE>) {
  if ($line =~ /accepted by(.*?)\./s) {
    print "accepted by: $1";
  }
}

問題は正規表現が機能していることですが、ファイルは行ごとに読み取られるため、新しい行に続くこの文字列をどのように一致させる必要がありますか?

ありがとうございました