Have you read my response? Please apply some basic formatting to your post, it's completely unreadable right now.

Can you see four lines in the following output?

asdfghjklqwertyuiop

And now?

asd
fghjkl
qwertyu
iop
[download]

You can always count on people willing to help you in the Monastery. Make it possible for them by not forcing them to guess what your question is.

Sorry, I am new to this forum . Finding it difficult to understand to post here . Here is my code .

my %unitMap;
my $cmd  = "hpacucli ctrl slot=0 pd all show";;
open my $fd, "$cmd|" or return \%unitMap;
while (my $row = <$fd>) {
        $row =~ /^$/ and next;
        $row =~  s/[,|)|(]//g;
        chomp $row;
        next if  $row =~ /^Smart/g;
        $row =~ s/^\s+//;
        next if $row =~ /^unassigned\n\nOK$/;
# I am trying to delete the line that starts with unassigned and 2 lin
+es after that
        print "$row\n";
[download]