#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11106985
use warnings;

<DATA>;
my @sums = (0) x 10;
print "Number", ' ' x 18, map(" pat$_", 0 .. 9), "\n";

while( <DATA> )
  {
  s/(?<=,(0|1),)(0|1)/ ($1 ^ 0 ^ $2) * 0.5 /ge;
  s/Q,1/Q,0/;
  my @values = (split /,|\n/)[-10 .. -1];
  $sums[$_] += $values[$_] for 0 .. 9;
  s/Q/Q /;
  s/,([\d.]+)/ sprintf " %-4g", $1 /ge;
  print;
  }
print my $pound = "#" x 78 . "\n";
printf "SUM Of weights           " . " %-4g" x 10 . "\n", @sums;
print $pound;

__DATA__
PATTERN,pat0,pat1,pat2,pat3,pat4,pat5,pat6,pat7,pat8,pat9
U_TOP_LOGIC/ipre_reg_0/Q,0,0,1,1,0,0,1,1,0,0
U_TOP_LOGIC/ipre_reg_6/Q,1,1,0,0,1,1,0,0,1,1
U_TOP_LOGIC/pre_reck_1/Q,1,1,0,1,1,0,0,1,1,0
U_TOP_LOGIC/pre_reg_10/Q,0,1,0,1,1,0,0,1,1,1
U_TOP_LOGIC/pre_reg_11/Q,0,0,1,0,1,0,0,1,0,1