Below are the lines in my file. I am reading them into array and storing column values into variables.

ValuesInColumn1    DataColumnB    XYZ    RowDescription|RowCode|Suppli
+er ID::Region
ValuesInColumn1    DataColumnB    XYZ    RowDescription|RowCode|Suppli
+er ID::Region
ValuesInColumn1    DataColumnB    XYZ    RowDescription|RowCode|Suppli
+er ID::Region
ValuesInColumn1    DataColumnB    XYZ    RowDescription at RowCode
ValuesInColumn1    DataColumnB    ABC    RowDescription at RowCode
[download]

The following will take data from my file, split it.That works if the columns are divided on spaces. But value for colD is not captured correctly, as string in colD has sapces in between. If value for $colB = XYZ and $colD contains substring = Region , I need to replace the $colB from XYX to N/A.

foreach my $line (@a) { 
        my ($colA, $colB, $colC,$colD) = split( /\s+/, $line);
        
        #print "$colD \n";     
}
[download]

Please help.