perlで先頭がアステリスク(*)で始まる文字列ではないかを判定したいのですが

if ($hoge !~ /~\*/){処理}では判定できないみたいです

どのような判定式にすれば良いのでしょうか、ご教示お願いします。