IJK1234
Use of uninitialized value in print at F:\_wo\pl_test\733761b2.pl line 16.
ABCD
Use of uninitialized value in print at F:\_wo\pl_test\733761b2.pl line 16.

##</code><code>##

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;
  }
}

##</code><code>##

in ENV Not Running: IJK1234
in PRINT NAME FIRST:  ABCD, 12345678