if($line =~ m!^(SP)\s+[AB]\w+:s+\w+!) {
   if ($1 =~ m/(Present|Valid)/) {
      print "Status Array: $1 \n";
   }
}