Somehow your parsing code and your data don't seem to be related at all. For example your code checks if the data has 11 columns, but your data only has 5 columns. So no wonder it doesn't work. (Your data sample has 11 interesting rows, but I guess that's more of a coincidence.

I'd approach the problem like this: 

use strict;
use warnings;
use 5.010;

while (<DATA>) {
    # skip separator lines
    next if /^----/;

    my @columns = split /\s*\|\s*/;

    # remove leading space
    $columns[0] =~ s/^\s+//;

    # now do something with @columns
    # you'll want to do something else here, not just
    # printing to the console
    say join ',', @columns;
}

__DATA__
------|----------|--------|-------------------------|--------|
 S.No | TimeStamp| UE-Name| Test-Config             | UL/DL  |
------|----------|--------|-------------------------|--------|
 1    | 18:24:38 | -NA-   | Sanity_001_0001_10_00   | System |
------|----------|--------|-------------------------|--------|
 2    | 18:31:34 | ueh1   | Sanity_002_0002_00_11   | UL     |
------|----------|--------|-------------------------|--------|
 3    | 18:23:48 | ueh1   | Sanity_003_0003_06_09   | UL     |
------|----------|--------|-------------------------|--------|
 3    | 18:23:48 | ueh1   | Sanity_003_0003_06_09   | DL     |
------|----------|--------|-------------------------|--------|
 4    | 18:38:30 | ueh1   | Sanity_004_0004_24_00   | DL     |
------|----------|--------|-------------------------|--------|
 5    |  -NA-    | -NA-   | Sanity_001_0001_10_00   | System |
------|----------|--------|-------------------------|--------|
 6    | 18:31:34 | ueh2   | Sanity_002_0002_00_11   | UL     |
------|----------|--------|-------------------------|--------|
 7    | 18:23:49 | ueh2   | Sanity_003_0003_06_09   | UL     |
------|----------|--------|-------------------------|--------|
 7    | 18:23:48 | ueh2   | Sanity_003_0003_06_09   | DL     |
------|----------|--------|-------------------------|--------|
 8    | 18:38:30 | ueh2   | Sanity_004_0004_24_00   | DL     |
------|----------|--------|-------------------------|--------|

[download]
Perl 6 - the future is here, just unevenly distributed

In reply to Re^3: Parsing Data in xlsx file by moritz
in thread Parsing Data in xlsx file by Rahul Gupta

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.