Select Code to Download

Select or download this

use 5.010;  # needs // operator

...
    }

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

Select or download this

c:\@Work\Perl\monks\kshitij>perl format_multiline_for_output_1.pl < k.
+dat
Reg                     pat1  pat2  pat3  pat4  pat5
...
U_TOP_LOGIC/i_reg_3_/Q   1      1     1    1     1
U_TOP_LOGIC/i_reg_4_/Q   1      0     1    0     1
########################################################