Select Code to Download

my $reHeader = '(\b\w+\s*)?' x 10; ## Adjust the repeat value to cover
+ the maximum no of fields

#! perl -slw
use strict;
...

CELLR     DIR     CAND   CS
LUC083A   MUTUAL  BOTH   NO

C:\test>junk79
{
...
  TROFFSETN   => "",
  TROFFSETP   => 0,
}