my $BoardTotal = $B10->to_base(substr($DC,0,4));
my $AvgSample = $B10->to_base(substr($DC,4,2));
my $Level = $B10->to_base(substr($DC,6,2));
my $Exp = $B10->to_base(substr($SC,8,5));
my $Fails = $B10->to_base(substr($DC,13,2));

##</code><code>##

my( $BoardTotal, $AvgSample, $Level, $Exp, $Fails ) = map $B10->to_base( $_ ), unpack 'A4 A2 A2 A5 A2', $DC;