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