my $fld2  = q{Some company text};
my $fld3  = q{Some other company text};
...
my $fld5  = q{};
...
my $fld14 = q{};