foreach my $item(@strings) {
  print "in ENV Not Running: " . $1 if ($item =~ /ENV\(([^)]*)\) STATUS\(Not Running\)/);
  $item =~ /^PRINT NAME FIRST\(([^)]*)\).* PHONE\((.+)\)/;
  if ($1 && $2) {
     print "in PRINT NAME FIRST:  $1, " . $2;
  }
}