Try this
sub DecodeNB {
pack 'C*', map{
( ( vec( $_[0], 2+$_*4, 4 ) -1 ) << 4 )
+
( vec( $_[0], 4+$_*4, 4 ) -1 )
} 0 .. 8;
}
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller