Perlで、パターンマッチを行いたいが、マッチした文字列が欠損する

Question

Perlで、HTMLから特定の部位を抜き出すスクリプトを組んでいます。

if ($html =~ /ほげほげ(.*)/) {
    print $1;
}

このパターンマッチング自体は問題なく動作します。
しかし、マッチした文字数が一定数より多ければ $1 が、
オバーフローしているのか欠損するようです。

欠損せずに抜き出す方法は、存在しますでしょうか？
よろしくお願いいたします。

追記:

if ($html =~ /ほげほげ(.*)ふがふが/) {
    print $1;
}

このように記述すると、そもそもtrueになりません。
ほげほげ と ふがふが は存在します。
ほげほげ と ふがふが の間のマッチする文字列が少々多いです。

Comments

[otn]

不具合を生じるコード「全体」を示してください。

Answer 1

if ($html =~ /ほげほげ(.*)ふがふが/s) {
    print $1;
}

改行が混在しているのではないですか？