use strict;

my $ret = `ps v $$`;
print "$ret\n";

for ( 1 .. 1000 ){
  my $key = ':PERSON-NUM(1:*):NI-NUM(1:*):';
  for my $bb ( "PERSON-NUM", "NI-NUM" ){
     if ( $key =~ /:$bb *\( *([0-9]+) *: *([0-9\*]+) *\) *:/ ){
        $key =~ s/:$bb *\( *[0-9]+ *: *[0-9\*]+ *\) *:/:$bb=1:/;
       }
    }
 }


$ret = `ps v $$`;
print "$ret\n";