$strにfugaが含まれていないときにマッチしたいという意味でしょうか？
要するに以下のような条件を1つの正規表現にまとめたいと？

if ( $str !~ /fuga/ and $str =~ /hoge/ )