Perlについての質問箱 43箱目

funcA();
if(hoge){ funcAErr(); }
else
{
　funcB();
　if(fuga){ funcBErr(); }
　else
　{
　　funcC();
　　if(fuga){ resultA(); }
　　else{ resultB(); }
　}
}

こんな感じで事前処理にこけたら弾き、を繰り返して最後の処理で結果Aか結果Bのいずれかを返す、
と言ったコードがあるんですが、これをもっとPerlらしくシンプルに書きたいんだがどう書けばいいだろう……。
(ifネストが実際には3階層ではなく20階層くらいあります)