Select Code to Download

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.

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

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