perl - Perl でビット演算を実行して、2 つの 1 の間の最長の 0 シーケンスの数を取得する方法

Question

整数を指定すると、perl でビットごとに出力したいと思います。たとえば、9という数字が与えられた場合、取得したい

1
0
0
1

どうすればこれを達成できますか。基本的に私がやろうとしているのは、2 つの 1 の間の最長の 0 の数を取得することです。つまり、数値のビット単位の表現がこの 1000001001 である場合、この perl 関数が 5 を返すようにしたいと考えています。

これをperlでコーディングする最良の方法を知りたいです。perl はまったくの初心者です。