perl である複数行の文字列に一致した部分を表示するプログラムを作っているのですがうまくいきません。

aaa
bbb
ccc
に一致する部分を表示する場合、下記の様にするとうまくいきません。
/aaa\nbbb\nccc/m も試してみましたがだめでした。

while(<FH>){
　if(/aaa\nbbb\nccc/){
　　print;
　}
}

<FH>で1行ずつ読み込んでるのでこの処理はむりなのでしょうか？
ご教授お願いします。