Shell Programming and Scripting

perl -ne 'if (/documentation/){while(/(HLD_\w+)/g){print "$1"};print "\n"}' file

#!/usr/bin/perl -w

    use strict;
    use Spreadsheet::WriteExcel;

    # Check for valid number of arguments
    #if (($#ARGV < 1) || ($#ARGV > 2)) {
     #  die("Usage: tab2xls tabfile.txt newfile.xls\n");
    #};

    # Open the tab-delimited file
    open (TABFILE, $ARGV[0]) or die "$ARGV[0]: $!";

    # Create a new Excel workbook
    my $workbook  = Spreadsheet::WriteExcel->new($ARGV[1]);
    my $worksheet = $workbook->addworksheet();
    # Row and column are zero indexed
    my $row = 0;

    while (<TABFILE>) {
       chomp;
       # Split on single space
       my @Fld = split(' ', $_);

       my $col = 0;
       foreach my $token (@Fld) {
           $worksheet->write($row, $col, $token);
           $col++;   
       }
       $row++;
    }

# Split on white spaces
my @Fld = split(/\s+/, $_);

1st column                2nd column            3rd column          4th column
HLD_EA_0001X           HLD_DOORS_002X
HLD_EA_003X             HLD_DOORS_003X  HLD_DOORS_0021 HLD_DOORS_XXX
HLD_EA_0232X           HLD_DOORS_003X   HLD_DOORS_ijkl    HLD_DOORS_CDKL

Code:

1st column                2nd column           
HLD_EA_0001X           HLD_DOORS_002X
HLD_EA_003X            HLD_DOORS_003X  
                              HLD_DOORS_0021 
                              HLD_DOORS_XXX
HLD_EA_0232X          HLD_DOORS_003X
                              HLD_DOORS_ijkl    
                              HLD_DOORS_CDKL

<UML:TaggedValue tag="documentation" value="This sequence HLD_EA_0001X SRS_DOORS_002X"/>
<UML:TaggedValue tag="documentation" value="This sequence HLD_EA_0231X SRS_DOORS_003X;SRS_DOORS_0021"/>
<UML:TaggedValue tag="documentation" value="This sequence HLD_EA_0232X SRS_DOORS_003X;SRS_DOORS_ijkl"/>
<UML:TaggedValue tag="documentation" value="This sequence HLD_EA_0345X SRS_DOORS_05762X;SRS_DOORS_aasja"/>
<UML:TaggedValue tag="documentation" value="This sequence HLD_EA_0001X SRS_DOORS_002X"/>
<UML:TaggedValue tag="documentation" value="This sequence HLD_EA_0001X SRS_DOORS_002X"/>
<UML:TaggedValue tag="documentation" value="This sequence HLD_EA_0001X SRS_DOORS_002X"/>
<UML:TaggedValue tag="documentation" value="This sequence HLD_EA_0001X SRS_DOORS_002X"/>

perl -ne 'if (/documentation/){while(/(HLD_\w+)/g){print "$1"};print "\n"}' file