Perl monks, will you provide some needed assistance please? 
__DATA__

 Disk Path  P Location adapter LUN SN  Type Size LSS Vol  Rank  C/A   
+S   Connection  port RaidMode
-------       -----  -   -----------  ------   -----------  ----------
+--   ----   ----    ---  ----- ----  -   ----------- ---- --------
vpath0  hdisk2  1n-08-01[FC] fscsi0 00013772 IBM 2105-F20 15.3GB  16  
+0   1000   01   Y   R1-B2-H4-ZA   2c RAID5


__END_DATA__

[download]
My code needs to delete the P column since its not populated and in the above example is after hdisk#. I tried using tr and s///, but of course it deletes all of the Ps 
use strict;
use warnings;
use Data::Dumper;

my ($vpath,$hdisk,$lun,$lunsz);
my (%HoA,$HoA);

open( SANCLI, "datapath query essmap |" ) or die "unable to open pipe.
+.. $!";
while(<SANCLI>) {
    s/^\s+|\s+$//g;
    s/P{1,1}//g;
    next unless length $_;
    my @array=split;
    { local $" = "\t";
      my @fields=@array[0,1,4,7];
      print "@fields\n";
    }
    #push @{$HoA{$id}}, $name;
}

[download]

In reply to splicing time by mikejones

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.