if (aaa == bbb) {
xxxxxxxxxxxxx
xxxxxxxxxxxxx
xxxxxxxxxxxxx
}

xxxの中に、hogeが一切どこにも入らない if () { .... }　を検索したいのですが、
perlの正規表現でできますか？