use 5.010;  # needs // operator

use warnings;
use strict;

my $default_format = "%-25s%d      %d     %d    %d     %d\n";

my %odd_format = (
  'U_TOP_LOGIC/i_reg_2_/Q' => "%-25s%d      %d      %d   %d     %d\n",
  );

print "Reg                     pat1  pat2  pat3  pat4  pat5\n\n";

my @values;
while (<>) {

    if (/^\s*$/ or /^\s*#/) {  # blank or comment line
        # do nothing
        }

    elsif (my ($size) = /^pat([0-9])/) {
        $size == 1 + @values or die "Unexpected '$_'";
        }

    else {
        my ($register, $value) = /(\S+).*\}([0-9])/;
        my $fmt = $odd_format{$register} // $default_format;
        printf $fmt, $register, splice @values
            if 5 == push @values, $value;
        }

    }

print "########################################################\n";