my @types = qw(number number string number boolean...)
my @data = unpack($template, $line);
my @newdata; my $i = 0;
while (my $item = shift @data) {
  if ($types[$i] ne 'string') {
    $item = $item ? $item + 0 : 0;
  }
  push @newdata, $item;
}