An alternate approach would be to make use of the unpack function ...

my @line = unpack( 'A10A8A8A8A8A8', $line );
[download]

Although I believe both approaches could be broken by over-field lengths or wrapping of text - But then again, there are no doubtedly better tools for that :-)

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000001001011000"))'