A> show chassis power | match "PEM|Online"

PEM 0:

PEM 1:

PEM 2:
  State:     Online

PEM 3:
  State:     Online



##</code><code>##


    $rh->cmd('show chassis power | match "PEM|Online"');
    my $output = $rh->get_response;
    my @outputlist = split /\n+/, $output;
        foreach (0..$#outputlist) {
             if ($outputlist[$_] =~/ State:\s\w{4}Online/) {
                if($outputlist[$_ _1] =~ /PEM 1/
}
}