すいません、Perlプログラムについて質問
させていただきたいのですが、

@Bit = ("31-18",17-8","6","3-0");
@Node = ( "87","1F","0","1" );
@ANS_BIT = ( 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 );

結果的に作りたいものとして32ビットのデータを作成したく、
ANS_BITの配列に@Bitの配列中にある幅内に@Nodeの
値（16進数→2進数）を入れて
@ANS_BIT = ( 0,0,0,0,0,0,1,0,0,0,0,0,1,1,1,0,
0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,1);
→[00000010000011100000111110000001]
のようなデータを作成したいのですが作れずに
困っております。特に@Bitの中で幅指定が連続であれば
簡単なのでしょうが所々抜けがあったりするので
どうすればうまくいくのかがわからない次第です。（空白0）
どなたかよい方法ありましたら是非ご教授願えませんでしょうか・・・